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APPENDIX  A 


A  SAMPLE  PROBLEM 


t 


* 


We  have  chosen  a  relatively  small  sample  problem  to  illustrate 
an  implementation  of  the  branch-and-bcund  algorithm  and  its  correspcn 
ing  program.  We  will  structure  the  problem  from  a  user's  viewpoint, 
formulate  the  objective  function  and  the  constraint  set,  illustrate 
the  preparation  of  the  data  decks  and  user's  subroutines,  and  explain 

the  logic  of  the  results.  The  problem  to  be  described  here  has  been 

4 

discussed  in  a  previous  document. 

The  Ace  Trucking  Co.,  in  planning  for  next  year's  workload, 
estimates  that  the  company  can  serve  its  customers  with  a  fleet  of  07 
light  trucks  and  16  cross-country  trailers.  An  alternative  fleet  was 
also  considered  consisting  of  43  light  and  20  medium  sized  trucks, 
together  with  only  7  cross-country  trailers.  Finally,  the  only  other 
practical  alternative  considered  was  a  mix  of  42  medium  trucks  and  12 
-f  the  big  trailers.  The  medium  trucks,  however,  are  -f  a  new  design 
an  i  will  not  be  available  for  next  year  unless  the  company  is  willing 
to  pay  a  substantial  premium.  At  first  it  appeared  that  choosing  one 
f  these  three  alternative  fleets  (shown  in  table  form  below)  was 


Alternative  4 1 
Alternative  4'.} 
Alternative  4 3 


Figure  A-l  ALTERNATIVE  FLEET  MIXES  FOR  1972 


A-l 


the  only  decision  issue.  However,  it  soon  became  clear  to  the  planning 
group  at  Ace  Trucking  Co.  that  the  investment  decision  should  also 
depend  on  the  utilization  of  the  trucks  in  subsequent  years,  in  addition 
to  that  utilization  planned  for  the  next  year.  And  furthermore,  the 
existing  fleet  of  trucks  was  far  from  obsolete,  even  though  maintenance 
costs  on  some  of  the  older  vehicles  were  beginning  to  climb.  Realizing 
these  factors,  the  planning  group  estimated  the  workload  for  their 
trucks  over  the  next  three  years  (beyond  which  they  could  not  be  con¬ 
fident  of  their  estimates),  and  then  prepared  a  requirements  table  like 


Figure  A-2  CAPITAL  EQUIPMENT  (TRUCK)  REQUIREMENTS 
AS  A  FUNCTION  OF  TIME 

The  existing  fleet  did  not  include  any  medium  sized  trucks;  foO  light 
trucks  were  two  years  old,  but  the  remaining  20  were  purchased  only  last 
year.  The  inherited  trailers  were  also  two  years  old.  Finally,  based 
on  the  projected  cash  flow  position  of  Ace  for  the  next  three  years,  it 

was  decided  that  a  limit  (cost  constraint)  be  placed  on  new  truck 

* 

procurements  for  each  of  the  three  years.  Decision  time  for  Ace 


*  Costs  constraints  were  not  imposed  on  this  problem  in  the  previous 
referenced  description,  hence,  a  slightly  different  solution  was  obtain¬ 
ed  . 


A-2 


Truck '.tig  Ci.  is  January  an  i  the  question  is:  what  is  the 

v ptimal  plan  ever  the  next  three-year  peri  1 1 V 

Initially,  one  shoul  l  auk:  how  many  alternative  plans  ex. sti  if 

we  permute  three  alternative.:  per  year  with  three  years,  we  tevelr.p  2( 

alternative  plans  —  bat  this  number  igr--res  aii  permutations  -t‘  tne 

existing  fleet  as  well  as  ala  concern  for  the  "welfare"  of  the  inner i tel 

fleet  from  year  to  year.  In  a  i  iition,  there  are  questions  like  "b^y"  . r 

"lease,"  ...  "sell,"  "salvage,”  or  "st  re,"  etc.,  making  the  n.jnber  f 

alternative  plans  very  .surge  ir.  see i  literally  thessanis  even  ii.  this 

trivial  problem) .  in  fact ,  for  real-w-  rl;  problems,  it  w ~  ,1 ;  not  be 

atypical  to  have  millions  of  possible  alternative  tuar.s  confronting 

the  iecisi-on-muker ,  each  involving  a  mace  of  cost  factors  —  making 

evaluation  of  each  an;  every  plan  rather  impractical.  ?r  clems  like 

this  car.  be  s  live i  efficiently,  without  evaluating  each  an;  every 

alternative,  using  the  mathematical  programming  technique:;  enns  lie  i 

2 

w.thm  she  Fuak-l  .an;  Algorithm. 

Til-  objective  fur.cti.  r.  i\  r  ti.is  problem  is  ieveloped  from  the 
general  form  of  Fig.  i  (rape '--11'  plus  projected  estimates  of  the 
cost  coeffic 1  cuts  f.  r  •  ■■ah  cost  catag'ry.  We  have  only  three  vehicle- 
•  n  :er  c:utsi  leruti  or.  but  <*•.•  if  1  cully  intr  *  luce  a  fourth  vehi  cle  (and 
call  it  ML  brio*  .  to  acc  >  .r.t  for  the  premium  charge  lu_  we  ouy  MET"7’1M 
tracks  for  the  first  year  That  is,  the  program  will  treat  the 

;  ;r chase  >f  ML  T'M  tracks  an;  MLDT 1M*  trucks  separately,  as  if  they 
were  i'.  stir.ct.  in  fig..re  A-d  we  show  the  re  laced  form  of  the  .elective 
fur.cti  ••..  L'te  that, 

l,  There  is  only  one  .possible)  kv'f  charge  and  that  is 

associate  :  with  the  ML  ill'1'  vehicles  ;  caaiea  vehicle  ho.  j  ; 
th(.  1  I  IhT.MLl  •.""!•!.  an  i  THA" '  Ltd  'ire  numnere  ;  2.  j,  an;  4, 
respectively . 

2  ;  We  use  r_  ir. crease  ir.  -pe rating  c>  -  st  ver  time  v  f-  >r 

simplicity  hence,  we  ire  tne  sac-on  ;  s  .rscrint  Lr,  the  c 
coefficients  as  well  as.  the  summati  n  over  k. 

d ,  We  have  ir.tro;;ce;  the-  specific  values  for  the  n  imbe  r  f 
vehieje.;  h -4  ,  an  i  the  length  o.f  the  planning  peri  •  j 
I  '  where  they  unpear  ir.  fig. re  A-j. 
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The  constraint  set  is  developed  from  the  general  descriptions 
given  in  Chapter  3  (starting  on  p.  3“l). 

The  material  balance  constraints  become: 


3 

v 


,i£  'm 


l  3 

+  v  v  x  .  =  y. 

-i  (f  •  m 

t’=l  m=9  J  i^M 


R. 


19, 

*  "ijk*  Pik^ 


+  s 


k=l 


j  =  1,  2,  3,  h 
f  =  1,  ?,  3 


Note  that  we  have  assumed  no  attrition-  (v^  =  l),  and  hove  assigned 

the  t.  .  factor  =  1  for  all  mission  groups. 
i  l 

The  consistency  constraints  reduce  to: 


v  P,v»  ^  i;  f  =  1,  2,  3  and  i  =  1,  2,  3 
k=l 


The  vintage  constraints  for  the  light  trucks  and  trailers  are: 


Q+  9. 


m=o 


w 

j 


4  and 


-1,  0 


where  L.  has  been  replaced  by  10  subperiods  (years)  for  all  vehicles 
0 

and  K.  by  -1  for  both  inherited  vehicles. 

J 

The  master  variable  constraints  ere  simply: 


3  3 

^  v  xw  ^  2>  3> u 

f=l  m=«  J 


A- 5 


X  . 

J 


Finally,  since  we  have  chosen  to  introduce  cost  constraints,  we  have 


H 


3 

V 

m=H 


j  to 


+  P. 


?.-l 


We  (i.e.,  Ace  Trucking  Co.)  will  set  the  cost  constraint,  H f =  $150,000., 

$250,000.,  and  $300,000.,  for  the  three  years  of  the  planning  period, 

respectively.  The  linear  approximation  a°,  to  the  procurement  cost 

3 

function  will  be  selected  after  inspection  of  the  actual  cost  vs. 
quantity  curve. 

A  careful  inspection  of  the  total  constraint  set  for  this 
problem  will  indicate  a  total  of  24  constraints  (recall  that  there  is  no 
materiel  balance  constraint  for  [  1=1,  j  =3]  and  no  vintage  constraint 
for  [j=4,  £=0]).  Similiarly,  a  count  of  the  number  of  variables 
(being  careful  to  delete  those  which  must  equal  zero  because  of  specific 
exclusions  in  this  sample  problem)  will  indicate  a  total  of  60.  The 
reader  will  note  that  the  GENLCP  Program  automatically  computes  and 
prints  these  totals  for  use  in  the  BBCAV  2  Program. 

We  are  now  ready  to  prepare  the  data  decks  and  user  subroutines. 
The  user  subroutine  GETPHI  is  shown  in  the  program  listing  on  page  D- 32  . 
It  is  here  that  we  describe  the  R&D  and  procurement  equations  for  the 
four  vehicles  in  the  sample  problem.  Note  that  vehicle  Ho.  1  (MEDIUM*) 

-X- 

has  an  R&D  (premium)  charge  of  $300,000.  —  the  other  three  vehicles 

have  r.o  R&D  charge  and  their  procurement  costs  are  simply  described 
by  concave  functions  of  the  form  ax13.  Of  course,  other  forms  of 
concave  functions  could  have  been  used. 


*  We  have  chosen  to  scale  all  costs  by  10°.  This  means  that  all  final 
cost  data  should  be  multiplied  by  10”. 
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The  only  ether  user  subroutine  '9RC0ST  (see  page  D-19)  is  prepare,! 
iV  r  :se  in  the  GEULCP  program,  then  duplicated  for  use  in  REPGEN.  As 
described  previously  on  p.  4-lOof  chapter  4,  YRCOST  is  used  to  calculate 
the  operating,  mothballing,  salvage,  and  truncation  cost  coefficients, 

■^.p.5  d.^,  e  ,  (m- £+1 )  ami  f.,  (Y-A-^l)  respectively.  For  our  sample 
problem,  we  use  no  increase  in  operating  cost  overtime  (R=0.);  a 
mothballing  savings  factor  of  R1  =  0.9;  a  salvage  savings  factor  of 
alpha  -  0.5;  and  truncation  savings  based  upon  a  linear  decay  from 
an  estimate  of  the  purchase  cost  (input  through  the  GEULCP  data  deck) 
and  an  assumed  10  year  lifetime  for  each  vehicle. 

The  aata  deck  for  the  GEULCP  program  can  now  be  prepared  f  see 
figure  A-4) . 

In  entry  (card  image)  No.  1  we  give  the  problem  title,  the  first 
and  last  year  of  the  planning  period,  and  then  specify  the  four  vehicle 

tables,  three  task  tables,  and  five  period  tabj.es  -  the  first  tw. 

■f  which  are  inherited  peri...  is.  Entry  2  is  the  VEHICLE  header  card 
for  the  first  vehicle.  Entry  3  describes  the  first  vehicle  as  LIGHT, 
indicates  an  availability  date  of  1970  (i.e.  an  inherited  vehicle) 
and  finally  a  ten  year  vehicle  lifetime.  Entry  4  indicates  that  oC 
light  vehicles  were  purchased  in  1970  and  20  light  vehicles  were  purchased 
in  1971.  Entry  5  indicates  a  $3,000.  purchase  cost  estimate  for  purposes 
of  calculation  of  the  truncation  and  salvage  value,  a  ten  year  'Operating 
cost  of  $120,000.,  zero  PAD  cost  for  the  light  vehicle,  zero  attrition 
for  the  light  vehicle,  and  finally  an  estimated  linear  purchase  cost 
coefficient  of  $3,000.,  respectively.  This  linear  purchase  cost 
c  efficient  estimate  was  based  upon  a  study  of  the  corresponding 
non-linear  procurement  equation  for  the  light  vehicle.  In  general^one 
shs.iu  choose  the  cost  coefficient  (slope  of  the  straight  line)  such 
that  the  straight  line  intersects  the  non-linear  curve  at  or  about 
the  estimated  solution  value.  The  consequences  of  a  poor  estimate  will 
be  lescribed  shortly.  Entries  6  through  15  simply  complete  the  vehicle 
tables.  Entries  16  through  31  describe  the  period  tables.  The  first 
tw.  periods  (lj70  ani  l'/fl)  are  inherited  periods.  In  period  1972 
we  iniicate  a  cost  constraint  of  $150,000.  in  entry  21.  Entry  22  specifies 
that  there  exists  only  task  in  1972  ani  its.  scale  factor  is  1.0. 
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Fig.  A-4  The  Sample  Problem  Data  Deck  for  the  GENLCP  Program 


The  remaining  entries  in  the  period  tables  should  be  self  explanatory. 

The  task  tables  are  input  next.  Entry  33  specifies  that  task  No.  1 
will  have  three  vehicles  and  three  alternatives.  Entries  34  through  37 
input  the  alternative  set  for  the  first  year  of  the  planning  period 
(compare  with  the  figure  A-2).  The  alternative  sets  for  the  second 
and  third  years  of  the  planning  period  follow.  Note  that  because  of  the 
introduction  of  the  artificial  MEDIUM*  vehicle,  the  complete  set  of 
permutations  yield  five  distinct  alternatives  instead  of  the  original 
three.  This  data  deck  ends  with  an  EE DT ABLE  card  in  entry  54. 

We  now  run  (process)  the  GEELCP  program  and  obtain  the  printout 
of  Figure  A-5;  parts  (a)  through  (f).  Part  (a)  simply  prints  out  some 
input  information  for  checking  purposes,  and  reorders  the  vehicles 
according  to  the  magnitude  of  the  R 5cD  charge;  note,  in  this  regard,  that 
the  MEDIUM*  truck  is  "called"  vehicle  Ho .  1  (XOl)  since  _it  has  the 
P.&D  charge. 

In  the  first  section  of  Part  (b),  a  summary  of  the  constraint 
equations  f>.r  this  sample  problem  is  listed;  the  row  type  (E  for  equality 
and  IJ  for  free),  then  the  row  name  is  printed  in  accordance  with  the 
symbolic  naming  convention  of  Fig.  4-3.  The  second  section  of  part  (b), 
and  continuing  in  part  (c),  lists  the  variable,  the  columns  in  which 
it  appears,  and  its  corresponding  coefficient.  Similiarly,  the  last 
section,  labeled  RHS ,  gives  a  summary  of  those  rows  (constraint 
equations)  which  have  non-zero  right-hand- sides. 

Part  (a)  provides  a  cross-reference  list  of  variable  number 
versus  variable  name  for  use  in  the  interpretation  of  the  output  from 
the  BDCAV2  program.  The  last  section  of  part  (d)  indicates  that  there 
are  25  rows  and  6l  columns  in  this  sample  problem.  Note  that  in  each 
case  these  are  -ne  more  than  was  indicated  previously  because  the  cost 
row  and  the  right  hand  side  variable,  respectively  are  now  included. 
Finally  the  upper  bounds,  computed  by  the  GEIILCP  program,  are  listed  for 
the  master  variables;  the  minus  sign  here  is  superfluous. 

Part  (e)  prints  a  cost  summary  on  each  vehicle  along  with  the 
C'mponents  of  the  inherited  fleet.  Then  in  the  last  section  of  part  (e) 
and  continuing  in  part  If),  the  task  * alternati ve)  tables  are  reproduced. 


GENERATING  T HE  MATRIX  FOR  THE  LEAST  COST  <>HASE-IN  PROBLEM 

FILENAMES  SAMPLE  STARTING  YEAR  -  1972  LAST  YEAR  =  197'* 

WILL  INPUT  A  VEHICLE  T  ARLES,  AND  7  1  ASK  TABLE ,  AND  <5  PERIOD  TABLES 

READING  IN  A  VEHICLE  TALSLE 
LIGHT  1970  10 

READING  IN  A  VEHICLE  T ACL E 
MEDIUM*  197?  10 

READING  IN  A  VEHICLE  TADLE 
MEDIUM  1973  10 

READING  IN  A  VEHICLE  TADLE 
TRAILER  1970  10 

READING  IN  A  PERIOD  TADLE 
1970  1970 


READING  IN  A  PERIOD  TABLE 

1971  1971 

READING  IN  A  PERIOD  TABLE 

1972  197? 

READING  IN  A  PERIOD  TABLE 

1973  1973  . 

READING  IN  A  PlRIO'D  TABLE  ' 

1974  1974 

READING  IN  A  TASK  TABLE 

13  3 

REAOING  IN  A  TASK  TABLE 

?  4  5 

REAOING  IN  A  TASK  TABLE 

3  4  5 

VEHICLE  NAME  VARIABLE  N A M E 
OPTIONAL  H+O  VEHICLES 

MEDIUM*  .  X01 

OTHER  VEHICLES 
LIGHT  XO? 

MEDIUM  X  0  3 

TRAILER  X  0  4 


Fig  A-o(a'  GEKLCP  Output  For  Sample  Problem 
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The  reader  should  note  that  very  little  near  new  information  is 
produced  by  the  GENLCP  program  —  for  the  most  part,  GENLCP  merely 
formats,  reorders,  checks,  and  performs  bookkeeping  operations  in 
preparation  for  entry  to  the  BBCAV2-REPGEN  algorithm. 

The  first  data  deck  for  the  BBCAV2- REPGEN  algorithm  is  prepared 
as  illustrated  in  figure  A-6.  We  first  assign  a  solution  name  in  entry 
1.  The  first,  second,  fourth  and  fifth  fields  of  entry  2  are  omitted 
as  described  on  page  4-26.  The  third  field  in  entry  2  indicates  that 
there  are  four  concave  cost  functions.  The  zero  in  the  sixth  field 
suppresses  printing  of  the  subroutine  calls;  the  1  in  field  No.  7  prints 
a  listing  of  the  primal  iterations  of  each  linear  program;  and  the  1  in 
field  No.  8  prints  the  entire  set  of  LP  solutions.  Fields  9  and  10  are 
the  standard  specifications  for  the  size  of  the  array  BLIST.  The  1  in 
field  No.  11  prints  the  column  numbers  and  their  corresponding  values 
for  each  node.  The  last  field,  set  to  20,  establishes  the  limit  on  the 
number  of  nodes  that  will  be  evaluated  prior  to  termination. 

Entry  3  has  four  fields  which  establisn  (l)  a  tolerance  factor 
of  0.005  (i.e.,  the  solution  will  be  within  one-half  of  one  percent  of 
the  theoretical  optimum),  (2)  a  program  time  limit  of  90.0  seconds 
prior  to  termination  (the  solution  to  the  sample  problem  actually  used 
only  48  central  processor  seconds),  (3)  that  no  initial  solution 
(basis)  will  be  input,  and  (4)  that  we  wish  to  obtain  a  detailed  out¬ 
put.  The  second  data  deck  for  the  BBCAV2- REPGEN  algorithm  is  prepared 
as  illustrated  in  figure  A-8.  As  discussed  on  p.  4-35*  the  REPGEN  data 
deck  is  very  easy  to  prepare  since  most  cards  are  duplicates  of  the 
GENLCP  data  deck.  After  the  title  card,  the  vehicle  tables  are  inserted 
with  cards  of  type  2  deleted.  The  period  tables  come  next  using  only 
the  header  cards  and  cards  of  type  1.  Note  that  the  period  designators 
have  been  inserted  on  all  cards  of  type  1  in  columns  11  and  12.  The 
ENDTABLE  card  in  entry  24  ends  the  data  deck. 

When  the  BBCAV2  program  in  the  BBCAV2-REPGEN  packet  is  loaded  and 
processed,  the  printed  output  gives  complete  information  vis-a-vis  the 
optimal  solution  as  well  as  all  intermediate  nodal  solutions.  The 
printout  is  long  and  involved  and  is  in  a  coded  format .  The  REPGEN 
program  in  the  BBCAV2-REPGEN  packet  will  decode  the  BBCaVc  output  and 
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1  SAMPLE— SIMPLE  TRUCK  PROBLEM— OPTIMAL 
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Fig.  A-6  The  Sample  Problem  Data  Deck  For  the  BBCAV2  Program 


present  all  essential  information,  hence,  we  neither  present  nor  discuss 
the  BBCAV2  output.  After  some  experience  with  these  programs,  the  user 
may  suppress  all  intermediate  information  if  he  so  desires.  We  do 
present  here  a  branching  tree  (like  that  of  Fig.  2-2b)  to  lend 
further  clarity  to  the  intermediate  solution. 
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The  "tree"  of  intermediate  solutions  (see  Fig.  A-7'  is  illus¬ 
trative  of  the  iteration  process  of  the  branch-and-bound  algorithm. 

Node  #1  represents  a  complete  linearization  of  the  non-linear  problem 
and  establishes  the  first  reference  solution,  0(x^)  =  3.03  million 
dollars.  A  lower  bound  to  all  solutions,  f(x^) ,  is  also  determined 
and  equals  2.72  million  dollars.  The  branching  rule  is  then  applied 
and  variable  #1  is  selected,  at  the  branching  value  of  X01  =  10. 

The  linear  programs  associated  with  node  #'s  2  and  3  are  then  evaluated. 

2 

Node  #2  yields  a  better  reference  solution  of  ^(x  )  =  2.82.  Node 

2 

#3  is  found  to  contain  no  better  solution  than  £(x  )  because 
f(x  )  >$(x  ),  hence  node  Hi  need  no  longer  be  considered.  The  next 
best  branching  variable  is  #4,  at  a  value  of  X04  =  12.  The  linear 
solutions  to  nodes  4  and  5  yield  identical  results,  indicating  a  solu¬ 
tion  at  the  bound.  The  process  terminates  here  because  the  smallest 
lower  bound  is  within  one-half  of  one  percent  of  the  current  reference 
solution.  Detailed  information  regarding  the  optimal  (and  final) 
solution  is  obtained  through  the  REPGEN  program. 

REPGEN  in  the  BBCAV2-REPGEN  algorithm  is  then  processed  resulting 
in  the  output  of  figure  A-9,  parts  (a)  and  (b) .  Part  (a)  contains  an 
overall  COST  INFORMATION  summary  together  with  a  breakdown  of  the  number 
of  PURCHASED  RESOURCES  (vehicles).  Part  (b)  illustrates  a  breakdown  of 
the  STORED  (mothballed)  RESOURCES  and  the  TOTAL  RESOURCES  USED  by  period. 
From  these  tabulated  results,  we  have  constructed  a  bar  chart  in  figure 
A-10  to  better  illustrate  the  optimal  solution.  In  this  display,  the 
results  of  a  cost  minimization  over  time  are  illustrated  by  a  bar  for 
each  year  and  each  vehicle.  The  height  of  the  bar  is  a  measure  of  how 
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0(x^)  =  the  actual  (non-linear)  solution 
for  node  i . 

fCx1)  =  the  lower  bound  (linear)  solution 
for  node  i . 


Figure  A- 7  A  Branching  Tree  for  the  Sample  Problem 
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Figure  At8 

The  Sample  Problem  Data 

Deck  For  The  REPGEN 

many  vehicles  were  selected  —  the  color  black  indicates  vehicles  exist¬ 
ing  or  retained  —  a  dotted  section  indicates  vehicles  purchased  —  a 
blank  section  indicates  vehicles  stored  (mothballed)  for  later  use. 

One  can  observe  the  trend  toward  a  fleet  of  only  medium  trucks  and  trail¬ 
ers  (perhaps  because  of  the  high  labor  costs  of  operating  so  many  light 
trucks).  The  MEDIUM*  trucks  are  not  chosen  for  1972  because  cf  the  high 
purchase  cost  for  early  delivery.  The  slack  is  taken  up  by  a  large 
purchase  of  trailers  in  this  first  year;  the  trailers  are  needed  in  the 
later  years  anyway.  Storage  of  a  few  trailers  is  indicated  in  1973, 
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SAMPLE - SIMPLE  TRUCK  PROBLEM - OPTIMAL 
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SAMPLE - SIMPLE  TRUCK  PROBLEM - OPTIMAL 
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(perhaps  a  surprising  result  but,  under  the  circumstances,  a  reason¬ 
able  one  since  buying  medium  trucks  or  retaining  a  larger  number  of 
small  trucks  for  this  sub-period  are  very  costly  alternatives).  Finally, 
one  can  observe  the  relatively  high  start-up  costs  due  to  the  purchase 
of  the  entire  trailer  fleet  in  1972,  and  then  most  of  the  medium 
truck  fleet  in  1973-  Nevertheless,  these  high  start-up  costs  yield 
the  least  total  cost  over  the  planning  period. 

The  COST  INFORMATION  summary  indicates  a  total  real  cost 
(that  which  must  be  allocated)  of  3.17  million  dollars.  This  differs 
from  the  branch-and-bound  solution  value  of  2.82  million  dollars  by 
the  truncation  value;  i.e.,  it  is  deemed  proper  to  include  the 
truncation  credit  for  purposes  of  optimization,  but  this  dollar  credit 
(unlike  salvage)  is  not  considered  to  be  available  for  other  purposes. 
From  the  procurement  cost  summary,  it  would  appear  that  none  of  the 
procurement  cost  constraints  were  binding;  however,  the  reader  should 
recall  from  p.  4-36  that  these  data  were  calculated  from  the  linear 
procurement  estimates  and,  upon  close  inspection  of  the  BBCAV2  print¬ 
out,  one  could  observe  a  binding  cost  constraint  in  the  second  period. 

As  previously  intimated  on  page  A-7,  this  relatively  poor  correlation 
between  linear  estimate  and  actual  value  (in  this  case  in  the  medium 
vehicles)  can  give  erroneous  results.*  For  cases  in  which  the  dis¬ 
crepancy  is  excessively  large  (judged  not  so  in  this  sample  problem) 
the  programs  should  be  reprocessed  with  a  better  linear  estimate. 

The  restriction  of  available  funds  in  period  two  is  probably  the  cause 
of  the  retention  of  the  light  vehicles,  in  lieu  of  the  purchase  of 
the  full  complement  of  medium  vehicles  for  that  period.  Finally,  one 
should  observe  that  the  RESOURCE  summaries  in  general  contain  non-integer 

values  -  a  consequence  of  the  continuum  of  solutions  to  linear 

programming  problems.  It  is  incumbent  upon  the  user  to  provide  a 
physically  meaningful  interpretation  to  such  results  —  as  we  have 
done  for  this  sample  problem  in  figure  A-10. 


*  The  difficulties  introduced  here  due  to  a  poor  linear  estimate  can 
be  avoided  in  the  future  by  employing  a  recently  developed  modification 
to  the  current  algorithm.  ** 
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APPENDIX  B 


MATRIX  GENERATOR  ROUTINE  DESCRIPTIONS 

GENIC P  -  reads  and  analyzes  input  data,  creates  column  names  and 
row  names,  determines  non-zero  values  of  the  matrix  of  coefficients, 
creates  the  MPS360  file,  and  outputs  the  documentation  listing. 

YRCOST  (j)  -  has  parameter  J,  which  is  vehicle  number,  and  deter¬ 
mines  for  this  vehicle  all  cost  information  (see  Chapter  4  for  detailed 
description). 

YINTERP  (NVR,  NTR,  NRY)  -  determines  for  all  tasks  (NTR)  which  of 
the  NVR  vehicles  will  not  have  been  developed  by  the  year  NYR,  and  elimin¬ 
ates  from  those  tasks  all  alternatives  in  which  the  "non-existent"  vehicles 
are  accomplishing  something  which  could  be  done  by  an  existing  vehicle. 

MATFILL  (N,  M)  -  creates  from  the  MPS360  file  the  file  for  BBCAV2 
which  is  an  N-row  by  M-column  matrix  of  coefficients,  and  also  creates 
the  reference  list  for  matching  column  numbers  and  names. 

MAIN  PROGRAM  ROUTINE  DESCRIPTIONS 

BBCAV2  -  is  the  programmed  implementation  of  the  main  logic  struc¬ 
ture  of  the  branch  and  bound  algorithm;  selects  node  from  branching  tree, 
branches  on  it  defining  two  new  nodes,  and  determines  when  optimality 
has  been  achieved. 

30X1  -  defines  the  initial  node  of  the  branching  tree  ana  establishes 
the  problem  framework  in  which  the  main  program  will  iterate. 

INITA  (NCF,  N,  M)  -  reads  the  matrix  file  from  tape  and  stores 
it  on  disk  in  the  form  acceptable  to  the  LP;  the  parameters  N  and  M  define 
the  number  of  columns  and  rows  in  the  matrix,  and  the  parameter  NCF  is 
the  number  of  columns  having  nonlinear  cost  functions. 
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evaluates  the  nonlinear  cost 


GETFHI  (KFX,  XFHI,  mi,  SUMPHl)  - 
functions  (see  Chapter  4  for  a  detailed  description). 

TABOUT  (IRT)  -  outputs  the  general  information  concerning  the 
node  being  evaluated,  and  if  IRT  =1,  also  prints  the  nodes  on  the  branch¬ 
ing  list. 

READIN  -  transfers  the  input  basis  to  the  file  which  the  LP 
uses  for  storing  its  current  basis  on. 

NXBRN  (XT,  SIGMAT,  NXB)  -  determines  the  best  branching  candidate, 
NXB,  given  the  present  X-vector,  XT,  and  the  node  information,  SIGMAT. 

TIMEC  -  determines  how  long  the  program  has  been  running,  prints 
the  time  or  interrupts  depending  on  whether  or  not  this  time  is  less 
than  the  input  maximum. 

GETASQ  (NOES,  ELM,  JSQ)  -  orders  the  elements  of  the  vector  ELM, 
of  length  NOES,  in  ascending  sequence,  keeping  the  index  variable,  JSQ., 
associated  with  the  vector  in  the  corresponding  sequence. 

GETC  (KCX,  BLT,  ULT,  CT)  -  determines  the  slope  of  a  straight 
line  on  the  cost  function  from  the  lower  bound,  BLT,  to  the  upper  bound, 
ULT,  for  the  KCX  variable  and  stores  this  in  the  cost  vector,  CT. 

PRESET  -  initializes  core  storage  at  beginning  of  the  algorithm. 

SET  (TMMAX)  -  initializes  the  time  limit  which  is  used  by  the 
routine  TIMEC  by  adding  the  limit,  TMMAX,  to  the  clock  time. 

PARA MS  -  reads  and  stores  the  information  on  the  parameter  and 
bound  cards  of  the  input  deck. 
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LP 

LP  is  the  linear  programming  system  driving  subroutine  which  directs 
the  overall  solution  stages  through: 

SETUP  -  -which  initializes  all  data  for  the  A  matrix  files  and  the 
solution  bookkeeping. 

MAPIN  -  which  introduces  any  prior  solution  known  for  the  problem. 

INVERT  -  which  solves  the  problem  equations  to  generate  the  current 
solution  represented  by  the  basis  inverse  and  the.  values 
of  the  basic  and  key  variables  in  the  current  solution, 
or  an  artificial  solution. 

PRIMAL  -  which  solves  the  linear  programming  problem. 

MAPOUT  -  which  stores  the  solution  found  and  loads  it  into  the 
output  vectors  DC  and  X. 

LP  begins  with  the  overall  common  definitions  for  the  LP  system, 
and  must  be  loaded  first  since  the  common  statements  /a/,  /B/,  /CORE/, 
/ROWTYP/ ,  /DCX/,  /XX/,  /NAMES/  overwrite  the  smaller  dimensions  specified 
in  later  subroutines  which  can  remain  unchanged  regardless  of  problem 
size . 

AJ  contains  the  operating  core  columns  and  the  complete  basis 
inverse  B  at  Aj(l0RG)  =  B(lORG),  see  below. 

The  first  stage  is  to  specify  the  A  matrix  files  IA1  -  used  for  the 
A  matrix  less  GUB  rows,  INPUT  -  used  as  the  source  of  the  unpacked  A 
matrix  by  column^  witten  in  binary  one  column  per  record,  and  IMAP  -  used 
by  MAPOUT,  MAPIN  and  INMAP  as  a  file  for  the  BCD  MAP  cards  defining  the 
basis,  initial  and/or  final. 

Files  IA1  and  IA2  are  specified  as  blocked.  Meaning  that  each 
physical  disc  write  or  read  is  of  as  many  columns  as  the  buffer  sizes 
for  IA1  and  IA2  will  allow,  and  not  just  one  column,  as  actual  written 
in  FORTRAN.  This  considerably  reduces  the  disc  access  time  denoted 
as  PP  time  on  the  CDC  6400. 

NWAJ,  the  number  of  words  in  AJ  is  used  to  compute  the  number  of 
columns  available  in  core. 

The  second  step  is  to  initialize  the  LP  calling  parameters  with 
the  LP  calling  arguments.  The  matrix  generator  locates  the  cost  row 
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ICOST  as  the  last  row  MROWS  which  is  INPUTM  for  the  linear  program 
common/lNPUT/ .  The  right  hand  side  is  JRHS,  placed  as  the  last  column 
NCOLS  which  is  INPUTN  for  the  common /INPUT/ .  The  number  of  bounds 
NBDS  is  the  number  of  changes  NCHGS,  the  calling  parameter,  and  the 
first  NCHGS  columns  are  bounded  by  BBCAV  convention.  The  values  of  the 
bounds  are  in  UBS. 

The  second  stage  ends  with  specification  of  LP  system  print  and 
termination  controls. 

LP  Cut-Off 

STATUS  terminates  the  program  if  any  linear  program  takes  longer 
than  TMAX  seconds  or  K5  iterations  ITRN.  The  termination  causes  a 
MAPOUT  allowing  restart  of  the  linear  programming  system  but  not 
necessarily  BBCAV. 

Diagnostic  Snapshots 

A  snapshot  of  the  current  solution  and  column  format  can  be  had 
from  XCHECk  by  setting  K4  to 

Kt  =  1000  x  N1  +  N2 

giving  a  snapshot  of  iterations  N1  through  N2  inclusively.  K4  =  0 
suppresses  XCHECK.  The  format  is  explained  in  the  XCHECK  subroutine 
writeup . 

Print  Control 

This  is  achieved  by  K3. 

K3  =  0  prints  everything 

K3  =  1  prints  no  LP  system  output  except  error  messages. 

Other  values  of  K3  give  a  selective  print  of  all  or  some  of  the 
respective  outputs  according  to  the  prime  factors  of  K3. 

Specifically  K3  should  be  a  product  of  primes  and 

Y3  =  2  X  3  X  5  X  7  x  11  x  13 

gives  all  print  options.  To  obtain  selective  control: 

1.  To  print  the  MAPIN  cards  as  read  K3  has  factor  3- 

2.  Inversion  d'agnostic  data  from  INVERT  on  infeasibilities  of 
the  current  solution  as  found,  the  columns  rejected  during 
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an  inversion  or  reinversion  and  the  final  infeasibility  if 
any,  K3  has  factor  13. 

3.  MESSG  prints  linear  programming  system  verb  entry  names  and 
entry  times  and  serveral  messages  if  K3  has  factor  7 • 

4.  STATUS  prints  the  status  of  the  PRIMAL  iterations  at 
beginning  and  end  of  K3  has  factor  11. 

5.  MAPOUT  places  a  basis  inverse  B,  IBASIS,  KEYS  and  BETA 
representing  Restart  data  sufficiant  to  avoid  an  initial 
invert  on  file  INPUT  if  K3  has  factor  2 

6.  MAPOUT  prints  the  solution  status  in  packed  format  when 
called  if  K3  has  factor  $ . 

Thus  to  obtain  printouts  of  inversion  diagnostics,  a  mapout,  verb 
entry  times  and  status  data  set  K3  =  5  X  7  X  11  X  13. 

The  third  stage  of  the  program  LP  calls  the  system  verbs  listed 
earlier. 

2 

The  basis  inverse  is  at  B(I0RG)  where  I0RG  is  M  words  down  from 
the  end  of  AJ,  i.e.  NWAJ.  The  remaining  space  in  AJ  is  allocated  to 
columns  of  which  NCRMAX  can  be  fitted  in.  There  must  be  at  least  5 
columns  slots  available,  three  for  CHECK  to  retain  columns  and  two 
for  work  space.  Fifty  columns  are  recommended 

Finally  MAPOUT  moves  •  the  current  variable  state  to  file  IMAP, 
the  solution  to  INPUT,  the  packed  variable  values  to  XXX  and  XX.  IXX 
has  the  indices  in  ascending  order  of  non-zero  variables,  and  XX  has 
the  corresponding  values.  Them  will  be  between  INPUTM  and  INPUTM  + 
NBDS  non-zero  values  followed  by  zeros . 

Variable  Lengths 

In  /IXX/,  /XX/  IXX,  XX  should  be  set  to  100  or  INPUTM  +  NBDS  if 
larger. 

In  /CORE/  AJ  should  be  big  enough  to  take  the  basis  inverse 
(INRJTM  •>-l-L)2  words  plus  10  to  100  columns  at  (iNPUTM+l-L)  words  each 
where  L  is  the  number  of  GUB  rows. 

In  /R0WTYP/  IR0WTP  should  be  10?  or  INPUTM+1  of  larger  than  100. 

In  /  NAMES/  NAME  should  be  r'O  or  INPUTN+l+S  if  larger,  where 
S  s  INPUTM  is  the  number  of  inequalities  and  free  rows. 
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In  /A/  ALPHA  should  he  100  or  INPUTM+L  if  larger. 
In  /B/  BETA  should  be  100  or  INPUTM+1  if  larger. 
All  other  commons  are  correctly  sized  in  LP. 


EXISTS 

All  exists  from  primal  are  via  the  subroutine  EXISTS  for  the  purpose 
of  user  parameter  settings. 

SETUP 

This  subroutine  is  the  system  verb  which  has  the  task  of  initiating 
the  LP  system  whe-.  starting  from  scratch. 

SETUP  first  of  all  initializes  all  LP  system  parameters,  then 
examines  the  row  types  constructing  a  logical  cr  slack  column  for 
each  nonequality  row  and  writes  these  to  disc  using  calls  to  OUT  of 
10.  An  extra  free  row  is  incorporated  for  the  phase  i  cost  row  and 
the  logical  columns  for  free  rows  are  marked  basic. 

SETUP  then  reads  the  A  matrix  columns  from  the  binary  IHPUT 
file  and  writes  then  out  to  disc  using  calls  to  OUT  of  10.  For  each 
column  the  NAME  vector  is  set  to  record  the  column  type  (free/null), 
the  column  G'JB  packet  number  or  zero  and  the  column  bound  index  or 
zero.  The  right  hand  side  vector  is  recorded  in  core  in  RHS. 

Finally,  SETUP  rewrites  IBASIS  and  the  RHS  vector  to  place  the  GUB 
row  elements  at  the  end.  The  count  of  GUB  rows  is  recorded  in  L  and  the 
actual  row  count  is  reduced  by  L.  The  cost  row  marker  ICOST  is  reset 
to  its  new  position  in  the  rearranged  rows. 
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This  subroutine  handles  all  disc  to  core  transactions  and  keeps 
track  of  column  bookkeeping. 

OUT  writes  two  files  of  columns  of  the  A  mati'ix  writing  one  column 
in  each  file  per  call.  The  first  file  IA1  contains  columns  less  their 
GUB  elements.  The  second  file  IA2  contains  columns  less  their  GUB 
elements  and  any  zero  elements  and  is  written  in  a  packed  format. 

IN  reads  file  IA1  cyclically  up  to  NT  times,  in  search  of  a 
particular  column  rewinding  when  appropriate.  It  is  normally  accessed 
for  sequential  columns  by  CHECK  but  INVERT  uses  it  to  locate  basis,  at- 
bound  and  key  columns  marked  in  the  NAME  vector. 

INPCKD  reads  file  IA2  cyclically  up  to  NT  times  in  search  of  a 
column  rewinding  when  appropriate .  It  is  only  accessed  in  random  for¬ 
ward  increments  searching  for  key  columns  and  thus  uses  a  packed  file. 

After  NT  reads,  sufficient  to  locate  any  column,  both  entries  cause 
an  error  message  and  dump. 

Once  IN  or  INPCKD  have  located  the  required  column  and  read  it  to 
a  slot  in  Aj(  ),  the  column  index  is  loaded  to  the  corresponding 
position  in  JA,  its  reject  memory  in  JAREJ  is  cleared  and  its  mnemonic 
(unused)  is  placed  in  JAK. 

Thus  it  is  not  possible  to  read  a  column  into  core  without  adjusting 
the  bookkeeping  of  what  is  in  core. 


mapj  r; 


Thi  r  subrout  ini’  is  die  system'  verb  'which  sets  the  bookkeeping  oi' 
the  column  status  and  allows  a  restart  from  a  previous  status.  It  is 
designed  to  read  a  file  IMAr  generated  by  MAPOUT  and  Loaded  by  InKAP  to 
file  IMAP. 

MAPI  I’  reads  settings  of  HULL,  BASIC,  KEY  and  ATPND  designated  at 
random  one  type  per  card  up  to  h  columns  per  card  for  each  type>  .  Each 
type  sets  the  column  status  marker  in  NAME  appropriately. 

Ho  r.  t  nrt  ?  i 

M ABOIL’  write:  the  LP  system  status  onto  the  end  of  the  INPUT  tape- 
file  when  MArOUT  is  called,  and  provides  an  I  [.TERSE  card  for  MAPIM  use. 
The  ITvERSE  card  causes  I-JATIt!  to  check  for  an  inverse  plus  bookkeeping 
data  and  the  solution  status  on  the  INPUT  tope,  ana  read  it  if  present. 

I  T-TAP 

Is  the  entry  designed  to  read  the  incut  card  stream  for  KAPIL  cards 
and  lord  them  onto  Tile  IMAP.  It  is  terminated  either  by  an  end  of  file 
or  and  FTD  card. 

Manual  preparation  of  MAP  cards  is  possible  and  extensive  cheeks 
j  in  MAPIN  will  detect  and  avoid  most  errors . 
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INVERT 


This  is  the  system  verb  which  inverts  or  reinverts  the  current 
basis  as  defined  in  NAME  records  and  completes  the  basis  with  artificials. 

When  INVERT  is  called,  an  inversion  occurs  only  if  the  current 
iteration  exceeds  ITNINV.  When^t  does  ITNINV  is  increased  by  INVF,  and 
an  "INVERT"  message  is  printed.  ! 

INVERT  first  clears  the  basis  records  and  the  GUB  packet  basis 
column  count,  sets  up  a  unit  basis  and  for  each  GUB  row  without  a  key 
chooses  the  first  valid  GUB  packet  column  as  key.  It  then  cycles  the 
column  status ' records  in  NAME  until  it  locates  a  basic,  key  or  at-bound 
column,  which  is  retrieved  by  IN.  Key  and  at-bound  columns  are  accum- 
alated  in  GAMMA,  scaled  by  their  packet  righthand  sides  (if  keys)  or 
their  bounds,  if  basic  columns  are  in  a  GUB  packet,  the  key  is  located 
by  INPCKD,  subtracted  from  the  column  and  the  result  transformed  and 
pivoted  into  the  basis  in  a  row  determined  by  PIVOT. 

When  all  NAME  records  have  been  checked  and  the  columns  incorporated 
or  rejected  by  PIVOT,  the  basis  record  is  completed  with  logicals  or  if 
necessary  with  artificials.  The  artificials  are  then  constructed  in 
DELTA  transformed  and  pivoted  into  the  basis.  Finally,  FEASCH  is 
called  to  construct  and  check  the  solution  feasibility. 

NB.  The  MAPIN  used  can  be  partial,  complete,  redundant  or  nonsense. 
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FEASCH  5s  culled  by  1»:VEKT  to  compute  3  =  B  1y  given  y  in  GAMMA  and 
B  1  in  B.  The  resulting  3  elements  in  BETA  are  checked  i‘or  feasibility 
and  the  basis  is  adjusted  if  infeasible  until  the  resulting  BETA  is 
feasible  and  the  phase  IPIIA8E  is  1  or  2. 

The  method  is  to  cycle  each  element  of  BETA  from  1  to  M,  compute 
it,  check  if  it  exceeds  a  bound  then  check  if  it  is  positive.  If  it 
exceeds  a  bound,  the  basic  column  is  set  "at-bound,"  and  the  bound  is 
subtracted  from  that  PETA(l)  which  then  becomes  negative  and  infeasible. 
If  it  is  negative  i.e.,  infeasible,  its  sign  is  reversed  and  the  column 
is  replaced  by  its  negative  artifical*,  to  pick  up  the  infeasibility 
directly,  (the  artificial  need  not  be  transformed)  and  pivoted  into  the 
basis  in  place  of  the  old  basic  column .  Finally,  if  CUB  rows  are  present 
the  last  L  entries  in  BETA  are  filled  with  the  values  of  the  key- 
variables  . 

Feasibility  of  the  keys  is  maintained  by  calling  KEYCH  to  move  the 
infeasible  key  (essential  packet)  to  a  basic  position  in  a  non  GUB  row 
and  processing  it  as  above  as  an  infeasible  variable. 

If  any  infeasibilities  have  been  encountered,  or  the  resulting 
Phase  1  cost  is  larger  than  CTOh,  Phase  1  initiates  otherwise  Phase  2. 


*  The  negative  artificial  of  a  column  A.  is  -A.  +  e  is  the  mth 
column  of  the  identity  matrix.  The  negative  article iaT  of  an  artificial 
e.  +  e  ,  is  -e.  +  e  . 
l  m  i  m 
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PRIMAL 

This  subroutine  is  the  main  LP  verb  which  solves  the  LP  problem 
phases  1  and  2. 

PRIMAL  notes  its  entry  and  time  using  MESSG,  then  picks  up  the  cost 
row  for  its  current  phase  1  or  2,  the  appropriate  tt  row  in  the  inverse 
and  sets  the  phase  1  row  to  free  in  phase  1  or  equality  in  phase  2. 

The  basic  solution  cycle  is  counted  by  ITRN.  If  ITRN  exceeds  K5 
or  if  CP  time  exceeds  TMAX  a  MAPOUT  is  called  by  STATUS  followed  by 
EXIT. 

The  solution  cycle  proceeds  with  COLUMN  to  find  an  in-core  column 
JCOL.  If  JCOL  =  0  no  column  is  found  and  the  phase  terminates.  If  the 
cost  is  zero  in  phase  1  this  is  the  feasible  solution  termination,  if 
phase  2  this  is  the  optimal  solution,  if  non-zero  in  phase  1  there  is 
no  feasible  solution. 

Next  ROW  is  called  for  a  pivotal  row  IROW.  If  IROW  =  0  no  row  is 
found  and  the  problem  is  unbounded. 

Next  the  pivotal  element  is  checked  for  size  and  degeneracy.  If 
it  is  too  small  NREJ  is  indexed.  If  5  bad  columns  have  occurred  an 
INVERT  is  called  to  check  the  inverse.  If  more  than  100  bad  columns 
have  occurred  the  problem  terminates  either  in  phase  2  as  optimal,  or 
with  a  dump.  If  the  pivotal  element  is  okay,  the  cost  change  THETA  * 
DJ(JCOL)  is  checked.  If  this  is  smaller  than  CTOL,  NDEG  is  indexed. 

If  more  than  NDEGLM  degenerate  columns  have  occurred  and  there  are  no 
more  good  columns  the  column  is  accepted.  Otherwise  in  either  case  the 
old  column  is  rejected  and  a  new  column  is  selected  by  COLUMN  ignoring 
the  previous  selections. 

Next  the  step  is  saturated  to  the  bound  on  the  column.  If  it  - 
exceeds  the  bound  and  the  column  is  not  at  bound,  the  column  is  set 
ATBND.  If  the  column  is  ATBND,  the  column  is  set  free.  In  either  case 
there  is  no  pivot  and  the  solution  is  corrected  for  the  bound  change 
but  there  is  no  basis  change  correction  and  NREJ  =  1  to  suppress 
pricing  in  the  next  iteration. 

If  the  step  is  within  the  bounds,  a  basis  change  will  be  made. 

The  rejected  column  is  located  first  in  the  basis  of  IROW  £  M,  then  in 
the  keys  of  IROW  >  M.  If  IRCW  £  M  there  is  no  key  change,  the  new 
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column  is  pivoted  in  by  PIVOT  at  IROW.  If  the  new  column  is  AT  BUT  the 
step  is  off  the  bound  and  the  new  column  value  EPSI  is  corrected  to  the 
bound  value  less  the  step.  Then  the  new  column  is  made  basic,  the 
rejected  column  is  made  free,  and  the  solution  step  made  and  the  new 
basic  column  value  set  to  EPSI. 

If  IROW  >  M  there  is  to  be  a  key  change.  If  the  GUB  packet  is 
essential,  it  has  other  basic  columns  and  the  key  is  changed  for  one 
of  these  using  KEYCH,  then  IROW  £  M  and  the  previous  case  follows. 

If  the  GUB  packet  is  not  essential  it  has  no  basic  columns,  so  the 
key  is  changed  to  the  new  column  and  the  old  key  is  dropped.  The  new 
key  value  EPSI  =  THETA  and  a  normal  step  is  made  as  before  without  a 
pivot  and  pricing  in  the  next  iteration  is  suppressed. 

After  every  pivot  the  rejected  columns  are  cleared. 

At  the  end  of  the  iteration  cycle  STATUS  reports  the  solution 
change . 

After  every  row  and  column  selection,  or  at  any  optimality  stage, 
XCHECK  is  called  for  a  debug  which  occurs  if  is  set  >  0.  See  LP  for 
details . 
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STATUS 


STATUS  prints  out  the  status  of  PRIMAL  iterations  every  cycle  under 
the  headings. 

PHASE  =  (IPHASE)  -  the  LP  phase  1  or  2. 

ITER  =  ( ITRN )  -  the  LP  iterations  count. 

TRY  =  (NTRY)  -  the  number  of  iterations  with  the  same  set  of  columns 
in  core  +  100  x  maximum  number  of  tries. 

VAL  OBJECTIVE  =  (BETA(lC))  -  the  solution  value  of  the  current  cost 
row . 

NDJS  =  (NDJS)  -  current  count  of  negative  DJ's  an  estimate  of  non¬ 
optimality  of  the  current  core  columns. 

NARTS  -  the  current  number  of  artificial  vectors  present. 

VALUE  DJ  IN  =  (DJ(JCOL))  -  the  value  of  ihe  DJ  for  the  column  chosen 
to  enter. 

COL  IN  =  (JP0S)  -  the  internal  number  of  the  column  chosen  to  enter. 

CODE  =  (NAME(JP0S ) )  -  the  status  of  this  column. 

COL  OUT  =  (JOUT)  -  the  column  rejected. 

CODE  =  (nAME(JOUT) )  -  the  status  of  the  column. 

NSCAN  -  the  current  number  of  rewinds  of  file  IA1  the  A  matrix  plus 
the  number  of  columns  active  in  core,  or  columns  read  on 
disc. 

Note:  If  JOUT  is  zero,  no  column  was  rejected  and  its  code  is  zero. 

If  JCOL  is  zero  or  IROW  is  zero,  these  are  taken  as  termination 
markers  and  the  NOTE  obtained  in  the  STATUS  call  is  printed  e.g. 
PRIMAL— END,  etc... 

If  JOUT  >  NT  artificial  code  is  constructed  equal  to  the  10®  X 
IROW. 
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ROW 


This  subroutine  is  called  by  PRIMAL  to  locate  the  pivot  row  IROW 
in  the  selected  column  JCOL. 

ROW  first  transforms  the  in-core  column  JCOL  to  the  current  basis 
representation  in  ALPHA,  reconstructing  the  complete  column  including 
GUB  elements  which  occupy  the  last  L  positions. 

The  row  selection  depends  upon  whether  the  column  is  at-bound  or 
not,  for  if  at  bound  the  column  represents  the  slack  vector  and  the 
step  is  negative.  For  either  case  the  minimum  THETA  is  found  which 

(i)  drives  the  resulting  solution  to  zero  or 

(ii)  drives  the  rejected  column  out  at  bound,  depending  upon  the 
sign  of  the  potential  pivot  element  ALPHA(l). 

These  are  case  2  and  3  for  a  normal  column  and  cases  3  and  2  for  an 
at  bound  column.  Upon  exit  THETA  is  the  step  in  row  IROfy  core-column 
JCOL,  (JPftS  on  disc)  and  ITYPE  is  2  or  3  for  the  type  of  step. 

If  no  row  is  found  IROW  =  0,  ITYPE  =  1  indicating  an  unbounded 
step  and  THETA  =  1-E35- 
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COLUMN 


This  subroutine  locates  a  potential  column  entry  JCOL  from  those 
in-core,  or  calls  CHECK  to  search  all  or  part  of  the  disc  for  more  col¬ 
umns  and  uses  these. 

COLUMN  counts  NTRY  selections  with  the  current  columns.  If  more 
than  NCRMAX,  or  no  columns  exist  in  core  it  locates  up  to  NCRMAX 
new  columns  with  a  call  to  DISC.  If  no  columns  are  found  the  problem 
is  optimal  and  JCOL  =  0  at  exit. 

The  in-core  columns  are  then  priced  out,  unless  no  pivot  has 
occured  (NREJ  or  NDEG  i  0)  because  of  column  rejection  or  DISC  has  just 
been  called.  PIKEY  is  always  set  to  the  current  key  price  for  the  packet 
recorded  in  JPKTO.  If  a  column  is  in  a  packet,  its  price  is  adjusted  for 
the  key  price.  All  columns  are  priced  apart  from  rejected  columns. 

The  best  unrejected  column  is  now  found  by  searching  the  DJ  values. 
At  bound  columns  have  DJ  reversed  as  they  cl ’"respond  to  the  slack  col¬ 
umn,  and  the  number  of  negative  DJ's  is  counted  in  NDJS. 

If  no  good  column  is  found,  i.e.  the  best  DJ  is  above  the  DJTOL 
threshold,  DISC  is  called  to  search  for  more  columns  unless  these 
columns  are  new, denoted  by  NTRY  =  0  (no  selections  with  these  columns). 

Upon  exit  JCOL  is  the  in-core  location  of  the  best  column  found 
in-core  (or  from  disc)  called  JPOS,  or  JCOL  =  0  denoting  no  column. 

If  JCOL  =  0,  JNCORE  is  reset  to  the  number  of  columns  in  core  (because 
DISC  has  deleted  the  count  of  columns  that  were  there)  in  order  to  try 
to  save  a  disc  read  in  the  next  phase  if  any. 


DISC 


This  subroutine  checks  the  disc  for  more  columns  and  selects  those 
which  are  currently  "not  bad." 

First  DISC  calls  INVERT  to  see  if  the  iteration  count  ITRN  has 
exceed  the  next  invert  point  and  inverts  if  necessary. 

DISC  reads  the  columns  in  batches  of  NDCH  columns  serving  1  column/ 
batch.  If  fewer  than  NCRMAX  columns  are  actually  used  these  are  read 
directly  into  core  where  they  stay,  once  and  for  all.  Alternatively  the 
current  file  IA1  position  JNT  is  found  by  INPOS  and  DISC  examines  the 
columns  starting  at  JNT  +  1,  proceeding  cyclically,  changing  batch  every 
NBCH  columns.  If  the  new  packet  number  PKT  is  different  and  nonzero  the 
new  key  is  located  and  read  over  any  unused  old  key,  or  into  the  next 
vacant  AJ  slot,  by  INPCKD. 

The  column  type  is  found  in  JTYPE  and  null  (0),  basic  (2)  and  key 
(4)  columns  are  skipped.  Free  (l)  and  at-bound  (3)  columns  are  read  by 
IN  to  the  next  location  JORG.  The  new  column  is  priced  out  correcting 
for  its  packet  if  /  0,  and  if  the  new  price  DJNEW  is  worse  (>)  than 
DJOLD  (the  best  of  the  current  batch)  the  column  is  skipped.  Otherwise 
this  column  is  preserved  as  I0RG  in  the  batch  records  and  the  best 
batch  column  DJ  as  DJOLD. 

Every  NBCH  column,  column  IORG  is  saved  if  it  is  better  than  DJTOL 
and  IORG  is  reset  to  the  next  vacant  column. 

DISC  will  work  if  the  packets  are  disjoint,  (separated  by  zero 
packet  columns),  and  also  if  the  packets  are  mixed  up,  (alternate  columns 
in  different  packets)  but  with  much  loss  of  efficiency  due  to  multiple 
key  searches  and  rewinds  of  file  IA2. 

DISC  always  pulls  in  the  key  of  each  packet  first  for  each  packet, 
using  the  packed  file  IA2  regardless  of  where  the  key  is  located  in  the 
packet . 
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Subroutine  KEYCH 


Changes  the  key  for  an  essential  GUB  packet,  to  ot_e  of  its  basic 
columns  in  the  packet,  selecting  the  first  one.  The  basis  inverse, 
B,  solution  in  BETA  and  current  column  in  ALPHA  are  corrected  for 
this  rearrangement. 


Subroutine  SETBND.  SETBNB,  SETNNN,  SETKEY 

Sets  and  unsets  the  state  of  a  column  J  in  NAME  (j),  to  either  free 
(1),  null  (0),  basic  (2),  at-bound  (3)  or  key  (4),  respectively. 


Function  DOT,  DOTS 

Computes  the  inner  product  x'y  in  either  double  and  single  precision, 
respectively. 


Subroutine  MAPOUT 

Writes  the  states  of  the  null,  basic,  key  and  at-bound  columns  onto 
BCD  cards,  placed  on  file  IMAP,  and  also  places  the  current  inverse  B 
solution  BETA  and  basis  bookkeeping  IBASIS  and  KEY  onto  the  end  of 
input  tape  INPUT  to  allow  instant  RESTART. 


Function  BOUND 

70 

Returns  the  value  of  a  column  bound,  if  bounded,  or  10  if  unbounded, 
or  artificial. 
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PIVOT 

This  subroutine  pivots  a  new  column  ALPHA  into  the  basis  inverse  B 
at  row  IROW.  If  IROW  is  zero  the  best  pivotal  row  is  found. 

IRCW  is  zero  the  basis  is  checked  for  empty  slots  or  slots  containing 
the  column  disc  index  JPOS.  If  the  latter  is  found,  this  row  is  used  as 
IRCW  since  this  is  SETUP'S  method  of  fixing  logicals  for  free  rows.  For 
null  basis  entries  PIV  and  IRCW  track  the  largest  ALPHA  element  and  its 
row,  and  this  is  used  as  the  pivot  element  unless  it  is  less  than  PIVTOL 
where  upon  the  column  is  dropped  with  IROW  =  0  as  a  marker. 

If  IROW  is  non-zero,  the  pivot  ALPHA  (IROW)  is  checked  against  the 
PIVTOL  for  possible  errors.  If  the  pivot  is  not  unity,  the  inverse  row 
IROW  is  normalized  by  the  pivot.  Then  for  every  non-zero  ALPHA  entry  at 
I,  that  multiple  of  the  inverse  pivot  row  is  subtracted  from  the  Ith 
inverse  row  (skipping  the  pivot  row). 

KEYFND  -  function 

KEYFND  find  the  location  in  core  of  the  key  column  for  the  specified 
packet.  If  none  is  found  in  core  it  returns  a  value  zero. 

If  the  calling  argument  is  zero  KEYFND  locates  any  key  in  core 
which  has  no  associated  GUB  packet  columns.  If  no  key  is  found  in-core 
it  returns  a  value  zero. 

Otherwise  the  value  of  KEYFND  is  the  column  location  1  to  NCRMAX. 
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ESCAPE 

ESCAPE  causes  termination  with  a  snapshot  of  the  working  core 
followed  by  a  call  to  file  0.  This  will  generate  an  abort  condition 
suitable  to  generate  a  system  dump.  If  it  is  desired  to  do  this,  use: 
DEBUG. 

LGO. 

EXIT, 

DMP  (IP,  ESCAPE) 

7 

8 

9 

This  will  dump  the  core  using  the  labelled  system  dump  from  subroutines 
LP  to  ESCAPE,  which  should  be  first  and  last  respectively. 

Consult  the  variable  list  for  a  definition  of  the  global  variables. 
All  calls  to  ESCAPE  are  preceded  by  an  ERR0R  message  of  explanation 
of  the  fault  condition. 

XCHECK 

XCHECK  delivers  a  core  snapshot  if  ITRN  lies  between  Nx  and  N2 
where  K4  =  1000  Nx  +  .  (K4  =  0  suppresses  XCHECK.) 

XCHECK  prints  using  the  following  format. 

(a)  Col  1  indexes  the  normal  and  GUB  rows  respectively. 

(b)  Col  2  prints  the  basis  IBASIS  and  KEYS  respectively. 

(c)  Col  3  is  the  current  column  representation  ALPHA  of  JCOL. 

(d)  gives  the  pivot  position  IROW. 

(e)  Col  4  gives  the  current  basic  and  key  variables  respectively. 

(f)  step  is  THETA  the  proposed  step,  before  bounding. 

(g)  the  column  bound. 

(h)  the  selected  column  disc  index. 

(i)  is  the  list  of  core-column  disc  indices. 

(j)  Col  5-14  is  a  list  of  10  columns  around  the  selected  column  in 

their  current  basis  representation. 

(k)  Is  a  list  of  the  column  name  codes  at  the  XCHECK 
instant. 
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REPORT  GENERATOR  ROUTINE  DESCRIPTIONS 


REFGEN  -  the  main  program  acts  principally  as  a  control  program 
calling  other  routines  to  perform  specific  functions;  determines  if  all 
solutions  have  been  interpretted  and  initializes  storage  for  each  solution. 

SETUP  -  reads  input  deck  and  reference  list  file  into  core  storage. 

INSOLN  -  interprets  the  meaning  of  each  column  in  the  solution 
and  stores  its  value  in  the  appropriate  array(s). 

YRCOST  (j)  -  same  as  in  matrix  generator. 

VALUES  (N,  ISTART,  IEND,  VAL)  -  determines  cost  information 
associated  with  each  "X"  or  "W"  type  column  in  the  solution;  N  is  the 
number  of  the  vehicle  type,  ISTART  is  its  first  year  of  existance,  IEND 
is  its  last  year  of  existance,  and  VAL  is  the  number  of  those  vehicles. 

CINFO  -  this  routine  organizes,  tabulates  and  outputs  the  table  of 
cost  information. 

PINFO  -  this  routine  merely  formats  and  outputs  the  last  three 
tables  of  information ;  purchased  resources,  stored  resources,  and  total 
resources  used. 
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1 


APPENDIX  C 

nOWCHARTS 


GENLCP .  C-2 

BBCAV2 .  C-12 


1 


REPGEN 


C-82 


© 


PROGRAM  GENLCP  (con’t) 


PROGRAM  GENLCP  (con’t) 


Q 

i 

j  Determine  j 

i  percent  of  ; 

!  vehicles  left 
j  after  attrition 
I  in  each  period 
1  up  to  disposal 

i 

I 


Enter  minus 
these  percents 
in  materiel 
bal.  consts. 


Determine 
operating  1 
!  cost  minus 
j _  salvage 

‘  Enter  this  • 
cost  in  j 
objective  , 
function 


Enter  approx. 

proc.  cost 
Ln  procurement 
constraint 


-r  Enter*"!"  ! 
in  master  i 
variable 
constraint 


Enter  "1" 
in  materiel 
balance 
constraint  j 
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SUBROUTINE  YRCOST 


Determine 
max  no.  of 
years  for 
balculations 


ENTRY 

MOTH 

Calculate 
mothballing 
savings  over 
length  of  per 

Q  RETURN  y 


SUBROUTINE  YINTERP 


c 


START 


Initialize 

array 

"Alter" 


Determine 
which  of 
| them  are  not 
developed 


Order  these 
in  reverse 
|  chronological! 
order  of 
development 


Set  DO 
loop  for 
tasks 


.  Set 

7  loop 
vehic 

DO 

for 

:les 

Determine 
minimum 
value  in 
remaining 
alternatives 

Set  "Alter" 
to  eliminate 
alternatives 
where  veh. 
not  at  min 
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SUBROUTINE  MATFILL 


C  START  ^ 


i  Initialize 
array 
"IRCWTP" 


Copy  title 

1 

i 

record  and 

1 

"row"  record 

i 

t 

Output  no.  | 
of  rows ,  ' 

columns,  and  I 
upper  bounds  I 


V 

Set  DO 
loop  for 
rows ,  read 
row  name 

W 

Set  "IRCWTP" 
value  for 
that  row 
equal  to  4 


Set  DO 
loop  for 
columns 


Output  no .  | 

and  name  of  ; 
column  on  j 
[reference  list] 


Determine 
row  for 

present  record, | 
enter  value 
in  "RVAL" 


Yes 

s' 

Read  "column" 
record  and 
first  record 
following 

_ 

Output 

"IROWTP" 

array 

Hcu 


Output 
row  data 
((array  "RVAL"' 
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PROGRAM  BBCAV2 


PROGRAM  BBCAV2  (con't) 


Define 

adjusted 

X-vector 


Call 

GETFHI 


SUBROUTINE  GETFHI 


\ 


Evaluate 
PHI(KFX), 
SUMPHI  =  0 


RETURN 


RETURN 


SUBROUTINE  TABOUT 


\ 
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subroutine  read in 


START 


Read  basis 
from  input  and 
store  on  file 
for  LP 


SUBROUTINE  TIMEC 


RETURN 


Read  clock; 
write  time 
problem  has 
been  running 

SUBROUTINE  SET 

< 

.limit  expired 

Store  best 
solution  on 
solution  file 


RETURN 


RETURN 


SUBROUTINE  NXBRN 


SUBROUTINE  GETASQ, 


^  START  ^ 

Ordc 

sequ< 

smal! 

fi 

=.r  a 

;nce , 

.est 

rst 

RETURN  J 
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1 


1 


I 


A 


SUBROUTINE  GETC 


i 

! 


Subroutine  LP 


Subroutine  EXITS 

User  chang able  EXITS  program  called  after  all  control  points  in 
PRIMAL. 


Return 


Subroutine  SETUP 


free ) 


SETUP  1 
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SETUP  2. 
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SETUP  3- 


end  of 
row  types 


R«  trieve  GUB  RH!  > 
entries  and  pla  :e 
on  end  of  RHS 


'  et  M  to  rvumbe:  ■ 
oj 1  non-GUB  rows  L 
)  i  umber  of  GUB  :'ows 


Return 


Subroutine  10 


10  1. 


IN 


Che 


Start 


K6L{  set  zero 
by  out 


Rewind  files 
IA1  and  IA2 
K0L1-K0L2=0 


(to  keep  both  i 


step) 


count  rewinds 


Subroutine  MAPIN  MAPI IJ  1 

Two  entry  points 

(1)  MAPIN  -  Reads  MAPIN  cards  from  file  IMAI  and  sets  NAME  record 

reads  inverse  from  file  INPUT  to  B. 

(2)  INMAP  -  Loads  file  IMAP  from  input  card  stream. 


■  CUB  N 
problem 


I  =  1,  14 


MAPIN  U. 

col  numbers/mapin  card 


/col  no>\  yes  ^ 
.not  zero  /  X  F 


Get  packet 
number  from 
col  name 


NB  user  should  not 
use  KEY  cards  unless 
produced  by  MAPOUT 
to  avoid  column  errors 


Set  new  col 
key  & 

clear  old  key 


End  I  loop 


vBASIC  rows 


j  =  1,  4 


row  no's/mapin  card 


'col  no. 
is  zero 


Set  row 
basi  c 


NB  row  numbers 
internally  are  not  the 
external  no's 
user  should  not  use 
this  option  manually, 
MAPOUT  -  only 


End  -J  loop 


J  =  1,  4 


MAPIN  5 

col  no's/mapin  card 


"'col  no. 
is  zero 


user  option 


Set  col 
marker  null 


End  J  loop 


:o: 


MAPIN  6. 


Write  "end" 
card  on 
IMAP  file 


Subroutine  MAPOUT 


MAPOUT  1. 


I 


MAPOUT  outputs  on  file  IMAP  a  BCD  card,  image  definition  of  variables 
and  inverse  states  compatible  with  MAPIN,  whenever  called  and  prints  the 
current  solution. 


MAPOUT 


MAPOUT  2 


fiCEY  ■ 
f'ATBND  _ 
f'BASIC  -  -  - 


Plade  inverse,  ba$ 
BITA,  KEYS  in  B 
erd  of  INPUT  TAtE 


is, 

on 


All  MAPOUT  cards  can  be  generated  manually.  If  they  are 
inconsistant  MAPI';  uses  the  last  setting  of  any  column. 


INVERT  3 


Page  2 


end  of  loop 


adds  up  effect  of 
bounds  and  key  columns 
in  GAMMA 


r* 


0 


I  WERT  4 


INERT  5. 


RETURN 


Subroutine  FEASCH 


FEASCH  i 


This  routine  computes  the  solution  and  checks  feasibility. 


V 


FEASCH 


/ 


JdELTA  =  e 

m 


effective  RHS 
RHS  +  GAMMA 


yh  J - =  A  M-l  ) 

i _ 


ig  -  B'V 


cycle  each  element  of 
BETA 


i 


,  BNDJ  = 
i  column 
'  bound 


N^i<  boundV— - ’(^T) 


Set  base 
column  tc 
bouni 


Infeasible 

row 


R-’.mrve  bound 
from  p. 


Infeasible 

Row 


Make  column 
non-basic 

NPIF+1 


0 


|  Set  negative 
artificial 
basic 


DELTA  = 

negative 

artificial 


No  ■'  N 

— (  end  I  loop 


FEASCH3 


!' 


ncn- 


Sum  basic 
values  in 


row 

t 

.  » 
_  M - 


Compute 
key  variable 


Yes 


(No  basic  columns 
in  row) 
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PRIMAL  2 


C-48 


9 


PRIMAL  5. 


Check  step  is 
within  hound 


to  hound  step  and  •. 
no  rejected  col  JOUT 


col  JP0S  comes  off  bound 
and  goes  to  zero  with 
this  step 


col  JPjdS  goes  to  bound 
so  set  bound 


STEP] 
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PRIMAL  7 


PRIMAL  8 


end  of  phase  1,  ^>PT1 
displays  STATUS 


end  of  phase  2,  0PT2 
displays  STATUS 


to  LP  with  solution 


Subroutine  status 


STATUS  prints  BRBtAL  data 


ST4TC3  1. 


ERR0R  -  triple  prints  error  messages 


STATUS  2 


MESSG  single  print  error  messages  and  print  time  in  seconds  since 


MSSG  I  start  of  run. 


\ 
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Subroutine  ROW 


nvi 


ROW  computes  curren  representation  of  selected  column  JCOL  in  core 
ALPHA  then  finds  step  MAX  THETA  which  preserves  feasibility. 


)educt  basic  : 
contri Dution  to  pad 


t  col 


ROW  3. 


VT^ND^) - ^1  =  1,  MPlT) 


Skip  free 
rows 
iTYPE(l)  =  3> 


Pivot  s  +zer 


Pivot  £  _zer< 


f  bound  step 


(Jtually  negatiyi 
0  =  -8 


^End^  - RETURN  ^ 


cycle  all  elements  of  a  for 
complete  problem 


ptep  =  (pt-d)4 
=  min  step 
tROW  =  I 


<*« 


type  3  rejected 
x  driven  to 
bound 


Step  =  P,/(-c 
0  =  min  step 
IROW  =  I 


,) 


type  2  rejected 
x  driven  to  xero 


^End  I  loop 


at  end 

0  =  THETA  =  min  step 
ITYPE  =  type  of  step 
a  =  ALPHA  =  transformed  to  col 
of  actual  problem 
IROW  is  pivot  row 


N.B.  IRCW  £  pivot  non-GUB  row 

>  M=^>  pivot  on  GUB  row 


Subroutine  COLUMN  COLUMN  1. 

COLUMN  selects  a  column  JCOL  from  among  vectors  in  core  in  AJ  space. 

If  no  columns  price  out,  it  calls  CHECK  to  search  disc  for  replenishment 


Reprices  old  columns  in  core  unless  the  prices  obviously 
haven't  changed  (same  6-0. 


DMAX  =  0 
NDJS  =  0 


JP0S  _  _ 
JTYPE  _ 


...  .A 

JTYPE  =  3 
DJ(J)  =  - DJ(J ) 


£ 


DJ(j)  <  -zero 
1  +  NDJS 


DMAX  =  DJ ( J ) 


COLUMN  3- 


most  negative  DJ 

no.  negative  DJ's  values 


cycle  all  columns 


Col  number  of  column 

.  (0  NULL/FREE /2  BASIC/ 

3  ATBND/  4  key) 

at  bound  cols  are  really 
in  at  -  their  true  value. 
This  corrects  for  it. 


negative  DJ's  counted 


null/basic/key 


JCOL  =  J 


MAX(-)  value 

JCOL  =  in-core  col 
index  position 


COLUMN  4 


Store  no  corp 
cols  in  NCORE 


Restorp  disc  NDJS  co 
Just  made  last 


pnt  if  (NTRY  =  0  and  all 
cols  not  in  core ) 


If 
OK  cl 


DMAX  ^  -DJTunj  Yes 
bl  is  good  enough  ^ 


^  RETURN  ^ 


JCOL  is 
test  col 
in-core 


Then  just  checked  the 
disc  give  up 


get  some  more  columns 
i  from  disc 


JCOL  =  0 
JNCORE  = 
NCORE 


no  col  found 


preserves  in-core 
cols  for  next  time 


RETURN 


Subroutine  DISC 


DISC  1 


Checks  if  an  inverse  is  necessary  and  then  checks  the  DISC 
files  IA1,  IA2  for  more  useful  columns  using  IN  and  INPCKD. 
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DISC  2 


INPCKD 


Price  out 
KEY  column 


IN 


Price  out 
actual  columri 


Interchange 
best  so  far 
Iwith  new  coluitn 


Call  in  KEY  column 
from  packet  file 
to  KORG 


Call  in  actual 
column  to  JORG 
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DISC  4  . 


JNCORE  =  0 


Used  initially  when  there 
axe  no  columns  in  core 


This  indicates  that 
there  axe  no  other  cols 
to  COLUMN  which  restores 
JNCORE  to  NT. 


^  Return  ^ 


lore 


Places  all  NT  cols 
into  core  and  sets 


NULL  columns)/  JNCORE  to  column 
count 


N.B.  Once  the  columns  axe  read  into  core,  they  stay  there  because 
COLUMN  always  restores  JNCORE  to  NT  and  keeps  track  of  them 
at  the  end  of  each  phase . 
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m 


INSERT  2. 


'A(J)  =  JP0S 
AJ(JROJ) 

=  AJ(JP0S) 


move  new  col  to  old 
position,  .fNCORE  unchanged 


INSERT  3. 


\ 


move  up  J  to  N  one 
place  saving  N 


save  Jth  in  correct  place 


go  to  move  up  records 


save  value  of  largest  D 
for  use  in  comparing  new 
cols  in  CHECK 
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Subroutine  KEYCH  KEYCH  1. 

KEYCH  changes  key  to  make  JCOL  basic  in  some  row  IROW  found,  making 
old  col  key,  and  corrects  a,  P  and  B  ^ . 


C-l 


KEYCH  2. 


skip  IROW 

check  row  is  in 
same  GUB  packet 


add  B(IROW)  to  B(l) 
to  get  A*  -  A* 

for  new  key 


correct  basis 
and  key  markers 


correct  a,  3  for 
new  representation 


1 


Subroutine  PIVOT  riVLri 

PIVOT  inserts  current  representation  of  column  ALPHA  into  basic  inverse 
B  at  IRCW,  if  IROW  =  0  it  finds  a  slot  for  ALPHA  or  rejects  it. 


\ 


\ 

i 
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PIVOT  2. 


Find  best  row  for  ALPHA  called  from  INVERT  when  row  not  known. 


C 


cycle  each  row 


check  logical  in  the  row 


insert  the  logical  in  this 
row 


check  row  already  has  a 
basic  col. 


potential  pivot  entry 


smaller  than  best  so  far 


no,  save  it 


PIVOT  3 


SETBND  1. 

SETBND,  SETBNB ,  SETKEY,  SETNNN  all  set  or  unset  to  state  of  a  variable 
to  bound/basic/key/null. 


DOT 

DOTS 


FUNCTION  DOT,  DOTS 
DOT  and  DOTS  evaluate  double  and  single  precision  inner  products 
DOT  =  x'y. 


double  precision 
accumalator 


in  x'y  y  elements 
are  often  zero  (as  used) 
avoid  double  precision 
manipulations  for  this 
case 


Replace  double  answer 
to  single 


quick  single  precision 
version  to  save  time 


FUNCTION  BOUND 

BOUND  -  checks  its  argument  and  picks  up  the  variable  bound  value. 


argument  for 
artificial  variable 
unbounded 


variable  unbounded 


NB.  NAME  format  has  least  significant  decimal  digits  as  shown. 

I  ' 

. oobb'kkkk's 

\  1 

I  ' 

bound  index  |  GUB  '  state 

or  0  •  packet ' 


Function  KEYFND 

KEYFND  finds  key  column  of  a  packet  in  core  or  returns  0. 


KEYFND  1. 


C-79 


KEYFND  2. 


=  1,  JNCUR^  cycle  each  column  i 


in  core 


find  the  first  key 
and  store  its  packet  no. 


cycle  all  columns  in  core 


look  for  non-key  columns 


in  same  packet  JPKT 


no  columns  stored  for  key  of 


this  packet 


— ^  End  K  loop  ^—^130^ 


KEYFND  =  0 


no  key  with  no  columns  stored 
indicated  by  0 


PROGRAM  REPGEN 


Call 

PINPO 


SUBROUTINE  INSOLN 


SUBROUTINE  VALUES 


SUBROUTINE  CINFO 


C-85 


1 


A 


SUBROUTINE  PINTO 


C-86 


APPENDIX  D 


PROGRAM  LISTING 


GENLCP  &  SUBROUTINES  .  D-2 

BBCAV2  &  SUBROUTINES  .  D-22 

REPGEN  &  SUBROUTINES  .  D-86 


D-l 


PROGRAM  GENLC®f  IN°UT  «  OUTPUT ,  TAPE5=INPU J  , LAPE6?0UTPU.T  ,JLAfiE4,.J  AP-ESL, 
♦TAPE7) 

C  THIS  PPOG9AM  GENERATES  THE  MATRIX  FILE  FOR  THE  LEAST  COST  PHASE-IN 
C  PROBLEM. 

C 

C  THE  DIMENSIONS  HAVE  BEEN  SET  TO  HANDLE 

C  MAXIMUM  NUMBER  OF  VEHICLES  =7  .. .  ...  _ _ 

C  MAXIMUM  VEHICLE  L IFF  (IN  YEARS)  =25 
C  MAXIMUM  NUMBER  OF  YFAPS  PRIOR  TO  SY  =  16 

C  MAXIMUM  NUMBER  OF  TASK  TABLES  =8 

r.  MAXIMUM  NUMBER  OF  ALTFONATIVFS  =298 

COMMON  /VECSTG/  VNAMPflO),  C,LEN°,  VLIFFUC),  INH(10,16), 

*  VCOST (10,5) ,  NAMFN(lO),  COSTS(3.,3>  _. 

COMMON  /  ALTSTG  /  AL  TEP  (288,  B)  ,  Y  AVL  (it)  ) 

INTEGER  ALTER 

INTEGPR  FNAMF,  SY , LY , VNAME , YA VL , VLIFE , YEAR ( 21 ) 

OIMFNSTON  BUOG(IO) 

dimension  nvfhu  (20  ,nl(10) , nn (  i  *n 

DIMENSION  NAMES(IO)*  AU(16),  UB ( 10) ,YRINT( 20)  _ 

COMMON  /TSKSTG/  U(7,288,q>  ,NTSK(  B) 

COMMON  /PROSTG/  NPERYP(10,3J  ,  NPTASK(1C,  9),  PTASK(10,B) 

DIMENSION  IHVN(IO) 

DIMENSION  NP(288) ,NM(9) ,NPM(10) 

C 

DAT  A  (N«>  (I)  ,I  =  1»24D/?H01, 2H02  ,.2H03*  2H0  4  .  2H05.2HQ6.  2H07  »2H08,2HG9., 
*2H10,2H11,2H12,2H13,2H14,2H15,2H16,2H17,2H18,2H19,2H20,2H21,2H22, 
*2H2  3,2H24,2H25,2H26,2H27,?H2fl,2H'>q,2H3C,2H31,2M32,2H33,2H34,2H35, 

*  2H36,2H37,2M38,2H3q,2H40,?H41,2H42,2H43,2H44,2H45,2H46,?H47,2H4B, 

*  ?H4B,?H50,2H51,?H52,2H53,2H54,2H55,2H56,2H57,2H58,2H59,2H63, 

*  2H61,2H62,2H63,2H64,2H65,2H66,2H67,2H68,2H69,2H70,2H71,2H72, 

*  2H73*  ?K74 , 2H75 ,2H76 , 2H77  *2H73,  2HL79»2H  8jG  »2H81,  2H82, 2H83 , 2H8u4-*_ 

*  2H85t?H86,2H87,?H88t?H8B,2H9flf 2H91,2H92,2H93,?HB4,2H95,2H96, 

*  2HB7,2HB8,2H99,2HA0,2HAl,2HA2f2HA3,2MA4,2HA5,2HA6,2HA7,2HAa, 

*  2HAB,2HB0,2H91 , 2HB2 , 2HB3 , 2HB4 , ?HB5 ,2MB6 ,2HB7, 2HB8 , 2HB9, 2HC0 , 

*  2HCl,?HC2,2HC3j2MC4,2HC5,2HC6,2HC7,2HC8,2HC9,2HO0,2HDl,2HD2, 

*  2HD3,2HD4,2HD5,2HD6,2H07,2H08t 2HDB,2HF0,2HE1,2HE2,2HE3,2HE4, 

*  2HE5, 2HE6 ,2HE7  ,2HELB , 2HE9 , 2HFQ  ,  2HE1 ,2HF2 ,2HF3,  2HF4.,  2HE5  ,2HF6+  .  .  _ 

*  2HF7,2HF8,2HF9,2HG0.2HG1,2HG2,2HG3,2HG4,2HG5, 2HG6 , 2HG7 , 2HG8 , 

*  2HG9»2HH0.2HH1,2HH2,2HH3,2HH4, 2HH5 ,2HH6 , 2HH7, 2HHB , 2HH9 , 2H JO , 

*  2HJ1,2HJ2,2HJ3,2HJ4,2HJ5,?HJ6,2HJ7,2HJ8,2HJ9,2HK0,2HK1,?HK2, 

*  2MK3,2HK4,2HK5,2HK6,2HK7,2HK8,2HKB,2HLC,2HLi,2HL2,2HL3,2HL4, 

*  2HLS,2HL6,2HL7,2HL8,2HL9*2HM0,2HMlt2HM2,2HM3f 2HM4,2HM5»2HMG, 

*  2HM7t2HM8,2HM9,2HN0,2HNL»2HN2,2HN3,2HN‘i,2HN5,2HNS,2HN7^2HN3^  .. 

*  2HNq,2HP0,2H»l ,?HP? , 2HP3 , 2HP4 , 2MP5 , 2HP6 ,2HP7, 2HP8 , 2HP9, 2HD0/ 
DATA(NR(I> ,1=241,288) /2HQ1 t2HQ2,2H03,2HQ4,2HQ5,2HQ6,2HQ7,2HQ8, 

*2HQB,2HR0,2HPl,2HO2,2HP3,2HP4,2HP5,2HRF,2HP7,2HR8,2HRq,2HT0,2HTl, 
#2HT2,2HT3»2HT4»2HT5,2HT6,2HT7,2HT8,2HT9*  2HU0 ,2HU1 , 2HU2 , 2HU3 , 2HU4 , 
*2HU5,2MUG,2HU7,2HU8,»HUq,2HHn,2HHl,2HW2,2HM3,2HM4,2HH5,7HW6, 
•2HH7.2HH8/ 

DATA  NM/2HM1, 2HM2,2HM3,2HM4,2HM5,2HME, 2HM7,2HM8,2HMq/ 

DATA  NZ/2H00/ 

DATA  SX,SH,SP,SS,SB,SG/1HX,1HH,1HP,1HS,1HB,1HG/ 

DATA  IVT,ITT,IPT,IEO  /8HVEHICLF  ,8HT ASK  .8HPERIOD  , 

*  8HFNOT  ABL  E  / 

ONE  =  l .  0  ...  ..  .  ..  . 

ONFM=-1.0 


laacaniiL- 
10000020 
10000030 
10  0G0G40 
1OCC0OEQ 
10CC006Q 
10  0GiL070 
10000080 
10000GBQ 
10000100 
10C0U11Q 
10000120 
10000130 
1000014Q 
10000150 
10000160 
10000170 
10000180 
10CG01BQ 
10000200 
10  00  3210 
10000220 
10000230 
1C  000240 
LO 11011250. 
10000260 
10C00270 
10000280 
13G0329Q 
1Q0003G0 
10000310. 
10000320 
10  000  330 
10000340 
10C00350 
10000360 
100  (1D3 7 0 
10PG0380 
10C003q0 
10000400 
10000410 
1 0  C  G  0420 
10  GOD 4  30 
10000440 
10C00450 
10GC0460 
10GG0470 
10 OG 0480 
1000Q49D. 
1CC00500 
10GQ0510 
10  00  0520 
1QU0053G 
10  GC  0540 
1DLD0055D 
10 JCG560 
10000570 


D-2 


t'  C  C'  C  C  C-  C  O  C'  c:  o  c 


MO  •»  1  =  1,7 
MO  •>  J  =  t,?M 
MO  1  <=1,0 
(It  T  ,  J,  O  =C  •  w 
1  0OMTTMt»r‘ 

•»  ^onttmuE 
i  oonttnu1* 

o  T^.-  f  ri)<;r  r>ATA  OABp  I'^MTaTN)0  1A.  rue  FTLFNAMt  TO  Bc  UBFn  =FMAMF 


icoon5»o 

1C  :3P5°C 
1 3  L  j  j  f>  i  G 
1 C  C  0  0610 

ioounf.?o 

iogc:f?j 

10  :  J  3  E  4  (, 
1GC0C6CC 


11.  T«r  SYAPTTM,  YPftp  (09  DECISION  YF  AB )  lCaGuFF-c 


10.  THF  LAST  YFftP  =  LY  =  SY  l'KGJF>73 

2A.  THF  K'tjMOfo  OF  VFHIOLES  =  MV  1  C  C  G  3  B  *  0 

20.  THE  Nif(fl£o  OF  TAS<S  =  MY  1CGC0690 

?r.  rwc  NUMBE  °  OF  orpjnos  =  mob  1C^Gj7[q 

1A.  -D  C I  -1 )  PAOAMFTEP  IC'jJYi; 

onn(S,i;C:l)  f Mine,  <?Y,LY,  MV.MT  ,N°Pf  1  7PI.M1  lC:t.j7?o 

i;  ,  :  F0»‘MT(4R,2X,C,TF)  13GQJ??; 

W°TTr<*,iC m  FMAKf,  0Y,LY,  NV.MT.MOO  1JC0C7*»C 

1JU  F  OPMAT  ( BC  M 1  GrMFP*TTNG  THE  MATPTV  FOP  THr  (.FAST  COOT  ohaff-IM  POOPloron7^0 
*L"H  /1 1W3FTL  rMA«Fr  ,  AS,  IBM  FTAPTptr,  yrjo  =,TF,i?4  LAST  YFAP  =  ,15,  lVuC  37*C 
*/HH  WILL  Imo|JT,T7,?<.H  VEHTOl  E  TABLES,  A-!D,  TB,1FH  task  TABLE,  ANO10G0:770 


*,  11,1*4  opoTOn  tarlfs.  ) 

n\Zo-t 
M  y  o  -  n 

',DT  =  “  ^ 

M  T  V  =  7  < 

M  I HHD=  C 

POAO  TTTJ.E  or  mf  x I  T(oLc  Jy' 

1j  PEAO(5tijCG)  IT  A  RL r  X&t' 

HFCTor  ri(f  ry or  or  t?.rlf  AMO  00  PEAO  its  DATA 
IFdTAOL4-'  ,cn.  TV  y  |  rn  TO  2t 
li  T f (  it anur  .fo.  itt)  r.n  to  4c 
IFdTAOLF  .fo.  t°”»  r,o  TO  R" 

!FUTa9Lr  .*0.  TFn)  on  TO  let. 

THF  TAOIF  MAME  TO  MOT  om^I^D,  TH  or  TS  aw  IN°UT  FP°0P 
WPIT^(f,,lPO0»  ITAOLE 


v0^oj^ 


10CL07«C 

10000790 

i  c :  j  :  <  o  o 

10GC0A1C 
10CG0f»?G 
10000030 
loco :  aa: 
10CuCBr-0 
100GI.A60 
1 C  u  C  0  A  7  0 
lCi f)  ‘  0*0 
i;:GuA°j 
1G0C1OCD 
1GCCG91G 


wpit^(is,ipoo)  itaole  iorono?o 

1  j  2  j  r0OMAT  (1Y.  AS, SOM  TP  f'OY  a  T  a  °L  E  MAME,  T'N^UT  FPPOP,  EXFOUTIOM  10  TFl'’:0;03j 
•P4TMATE0.  1  lCCid9«*C 

MTOO  1  1UGG9EC 

2  j  W  p  T  T  F  (B,10YG)  1CIIQ9M) 

ion  cnoMMf  tomp  9EanT*'o  jm  a  v^wtot"  tarlf  >  1'c:gr7u 

MVO  =  ‘H/o*i  l'J^ujlPC 

oEan ib , lGuoi  vnahf(m«p),  yavl(m</p),  vltF'.(nvp)  icrGC9°o 

WPTir(*s,l3EC)  VMAMF  (M\(Oj  ,  YAVL(NV(>),  VL7Fr(MVP)  lOOPtOCO 

1040  FO^naT  (  a«,ix,  T4,F.y,TP)  lM'ulJlJ 

IjF;  F09YAT(1X,AA,?Y,PT1G)  1CU1G2G 

YMAMr=Ma MF  OF  VEHTOLF,  YAVL=  10T  YTa*’  VFHIFL-  AVALTBIE,  1CCL1L' “*0 

Y  L  T  F  E  =  MAX  I  HIM  T  FE  OF  VrHT0LE  TM  YC-’PC',  lCCtlP»*0 

IOClICBC 

IF  THIS  VFMIOLE  MAE  ft '/  At  t  AOU  F  RFFOPf  THE  S  T  a  JT  IMO  YEA9 ,  THEN  pfjo  IM  1CGG10F,0 
.  117E  OF  TMMCoITrn  FtcrT.  BY  YEsp  BUILT.  10CG1G7Q 

•hj=sy  -  yavl(mvp)  irccic°o 

TF(  M-J  .LE,  p>  F,n  to  ?0  ltu01G9j 

mtv=miv*i  nrciito 

T  a  =  1  1 1  i  P 1 1 1 C- 

T9=A  1CCCU2C 

2t  °EA0(E, 1C60)  ( IMHfMVP,  II  ,  I  =  IB,  ID  10001130 

10E(J  FO°MAT  (  AH  ))  io.:cii*»c 

IF  (TO  .  F,c.  MU)  F.o  TO  2*  IGCJll^C 


o  o 


ta=ib+i 
IB=TB*9 
60  TO  23 

25  READ  (*5,1070  )  (VCDST(NVR,I) ,1=1, 
107  j  FDPMAT  C*5F10.2) 

C  VCOST(NVR,l)  »GT ,  1.0E30  INDICATES 
C  PURCHASE. 

60  TO  10 

IT  IS  ASSUMED  THAT  ALL  VEHICLE  TABL 
40  HRI TF ( 6 , 10  90 ) 

1080  FORMAT  ( 2c;H0  READING  TM  A  TASK  TA 
NTP=NTR+1 

pEAO (5,1090)  IDT ,NU,NA 
HRTTE (6,1090)  IOT,NU,NA 
1390  F OPMAT ( 3110) 

C  IOT=  T ASK  IOFMTIFTCATTON  NUMBER,  NU= 
C  na=numbfp  OF  alternatives 

MTSK(IDT)=NA 

I  A  =  1 

IB=8 

43  eEAOCi.llOO)  (NAMFS(T),I  =  IA,IB) 
1100  FORMAT (9(A8,?X) ) 

IF ( IB  .GE.  NU)  GO  TO  45 
I A=IB*1 
1 9=  IB«-  8 
GO  TO  43 
45  DO  47  1=1, NU 
OO  46  J=1,NVP 

I F ( VNAME ( J )  .NE.  NAMES(I) )  GO  TO 
N  AMFS ( I ) =J 
GO  TO  47 
45  CONTINUE 

HRTTE ( 6 , 11 10  )  N  AMES ( I ) 

1113  F  OP  MAT ( 15H  0  VEHICLE  NAME  ,A8,60H 
EXECUTION  TERMINATED.  ) 

STOP  2 
47  CONTINUE 
C 

C  NOW  BEAn  IN  U ( J , K«  L)  «  NUMBEP  OF  VEH 
C  PERFORM  TASK  L  WITH  ALTERNATIVE  K. 
DO  55  K=1,NA 
I  A  =  1 
IB=« 

49  °EAD  (5 , 1120  (AU(  I)  ,  T  =  IA,  IB) 

1123  FOPMAT(flFio.O) 

IF ( IB  .GF.  NU)  GO  TO  49 

IA=IBM 

IB=TB4-8 

GO  TO  49 

49  00  50  1=1, NU 
J=NAMES (I) 

U(J,K, IOT) =AU ( I ) 

50  CONTINUE 

55  CONTTNUE 

56  READ (5 , 1000)  ITA9LF 
GO  TO  11 

C 


6) 


ES  APE  IMPUTED  FIRST, 


OLE 


NUMBER  OF  VEHICLES, 


10001160 
—  1300.1170- 

10001180 
10001190 
10001200 

THIS  VEHICLE  IS  NOT  AVALIABLE  FOR  10001210 

10001220 

.  .  _ _ 10001230 

10001240 
10001250 
10001260 
10001270 
10001280 
.  IDOL  1290 
10001300 
10001310 
10001320 
10001330 
10001340 
10001350 
1C001360 
10001370 
100013BG 
10001390 
1DG014C0 

.  10LD1410 

10001420 
1G0C143G 
10CC14I.0 
10001450 
10001460 

. . 10031470 

10001480 

10001490 

NOT  DEFINED  IN  A  VEHICLE  TABLE,  E1G001500 

10001510 

10001520 

.  10001530 

10001540 
10001550 
10001560 
10C0157Q 
10001580 
10001590 
10001600 
10C  01610 
10001620 
10001630 
10001640 
_  10  001650 

10001660 
10Q01670 
10001680 
IQ  001690 
10C017C0 
10L0171Q. 
13001720 
100C1730 


46 


TCLES  OF  TYPE  J  REQUIRED  TD 


63  woi  Tr(«i,U7[  I 

117':  (-noMAT  (  7uHU  PEADTMr.  TN  A  P'*oiOn  'A^LE  ) 

0  THE  orr>ion  TAOL  rs  »or  pypc  0TE0  T‘J  0 hppnPL PGT0 AL  OPDTP. 


1CCC  17«.L 
ioooi7co 
ic  ;017p,u 


MOTsMPT*! 

r'PAO  (6,1140)  <N0FDY°(Nor  ,  I)  ,1-rl  ,?)  ,pijPG  (MPT) 

MP«i  T  <T4,Ir-,3X,F“.?> 

WOITP(6,1150>  (NOff>vp  (NPT  ,  I )  ,T  =  l,  ?) 

116„  F0S>MST(2T5) 

TP (MPT  .P3.  1)  GO  TO  61 

TP (M°P“YJ(N»T-l , ?) +1  ,E0.  NPrPYP  (N°T,1>  )  GO  TO  t\ 
WPTTP<6,1155) 

U IS  POOMfiT(3SH  THT  nr°T0O  TA9L  ES  APP  OUT  OF  aoqfo  ) 

C  TOP  7 

FI  T P  ( SY  .CT.  MP=-PYP  (NPT#1J  )  GO  TO  7l) 

°FAO(5,il58)  NU,YOTNT(NOT) 

115H  podmAT  (113, F10.’) 

o  all  tmc  tasks  a°e  scalfo  **  the  paotop  Y9  int ( mpt  >  tn  the 
M»EPtp ( M°T ,3) =NU 
I  A=  t 
TO=« 

MA=NPT-NTNH® 

67  ppA0(5,  1160M  (NPTAStCCNA.TI  ,  PTAS*  <N  A  ,  I »  )  ,  I  =T  A  ,  IP) 

1163  POPMAT(S(IS,FS.0n 

TP<T°  .  Gr.  Mu>  GO  TO  56 

I  a=i°+i 

I9-IQ«-‘» 

G o  TO  63 
7Q  mtmwo-»um^p*i 


1CCC1770 

lCbC17»C 

1000170') 

lOCUlftut 

ic  :■  c  1 « 3  c 

1C  CC1P2C 

ionoi«?c 
10 .  J  1  8  *•  ? 
10 rl 1850 
10Ul*fC 
10CG1870 
1CC01AA j 
1 Q  uG 18Q J 
PEPTOD  MPT  10CL1OC0 
1C CC 1910 

lnrci o?c 

1C  cO 1°3j 
iocoiouo 

1CG019E 0 
10001960 
10CJ1973 

iOuri9so 

10CC1990 

10nr?0C0 

1?CC»J10 


GO  TO  66  lJrC'2u20 

1CGC2C3C 

ALU  TA7LE  HAVF  OPEN  *PAO  IN.  NOW  PP^CESS  THEM  TO  ®E  A9LC  TO  GPNppATT  1CCC20*»C 
Thf  matbix.  n.32.,50 

PIPGT  CHECK  TO  nPTfPMINF  IF  THE  E*PrCTF0  MIJHQPP  OP  TAPLE  HE»E  TNPUTFlU  .  J2C60 
133  TF((MV  ,PQ.  MVP)  .AMO.  (NT  .FQ.  N  7P)  .  AN"i.  (MP“.EQ.  NPT))GO  TO  1C51G002CJ7O 


W°T  TP ( 6  1 11 70 ) 


10CC7C"C 


1171)  PCOM4T(7tH  HAPNTNG-THE  NIJH9EP  "F  TAOLE  AOTUALLY  TNPUT  HAS  NOT  THE  13lC2'jqu 


*r*°FCT  NUH9FP. 


) 


C  O^RP  p  TMP  VECHTLES  SO  t«E  ape  in  OP  SENDING  OPDPP  OF  p  +  o  COST, 
1C5  NP0=C 


K'JC21'C 

1CCC7110 
1 C  C 1 7120 
10007170 


00  1C7  T=1,NVP 
NAMFMf T) =T 

T p ( VCDS T (1,71  .LE.  0.0)  GO  TO  1C' 

mpO  =MPq  +  i 

107  conttmijf 

I p ( NOT . ~P, 0 )  SO  TP  1*1 
nv=nvo-i 
DO  120  1 1= 1 »  N V 

T=NAMFM(TI> 

I  HA  X  =  T  I 
TP1=TI61 
CHAX=VOOST (I, 3) 

OO  110  IJ=IP1,NVP 
J  =NA**EN  ( JJ) 

rF(CMax  .ge.  vcosT(jf3nr,o  to  nr 

THAX= JJ 

CHAXrVCOST { J, 7) 

11J  0  ONT  I  N'JP 


uitoai^u 
IOC C 2150 
1CCC71P0 
10007170 
1C JC718J 
1CGC71°0 
10CD72C0 
10C0'*710 
1C  ,C7??C 
10CC2273 
10C0  72**  0 
10007250 
1C  337260 
10CC7270 
10CC7280 
1 0  0  0  7  7°0 
10  L  9  7  o  1) 
IQ G 32310 


JsNAMEN ( TMAX ) 
NAMENCIMAX) =  NAMEN  III) 

N AMEN ( I I )= J 

IF ( VCOST (J,3)  .GT.  0.0) 

GO  TO  125 

CONTINUE 


GO  TO  12* 


NOW  DETERMINE  IF  FOP  ANY  R+Q  VEHICLE  ITS  DEVELOPMENT  -IS  NOT. OPTIONAL. 
IT  TS  ASSUMED  ALL  TASKS  ARE  PREFORMFD  DURING  SOME  PERIOO  AND 
THE  TASKS  HAVE  BEEN  NUMBERED  SEQUENTIALLY. 

125  no  143  T  =1 ,NRO 
NAMES ( I ) =1 
J=NAMEN(T) 

00  133  L=1,NTR  ...  . - 

NA=NTSK(L> 

00  133  K=1,NA 

TF(U(J,K,L)  . EQ .  C.O)  GO  TO  133 
130  CONTINUE 

FOUND  A  TASK  PEQUIPTNG  tHAT  VEHICLE  J  DE  DEVELOPED 
NAMES ( I ) =2 
GO  TO  140 
133  CONTINUE 
140  CONTINUE 

NAMES ( T )  =  2  IF  THE  I  TH  MOST  EXPFNSIVF  P+D  COSTING  VEHICLE  MUST  BE 
DEVELOPED,  =1  OTHERWISE 

IF  A  VEHICLE  MUST  BE  OEVELQPEO  TREAT  IT  AS  IF  ITS  R+D  COST  =  D  ... 

NA  =  C 

00  145  1=1, NRO 
K=NAMES  (T) 

GO  TO  (145,143) ,K 

143  L  =NAMEN ( I) 

IPt*I*l  . 

K  =NPD-N8 
DO  144  IT=IP1,K 

144  NAMEN(IT-l) =  NAMFN ( II ) 

NAMEN(K)=L 
N A=NA+1 

145  CONTINUE 
NRO=NRn-NA 

LIST  VECHILE  NAMES  AND  CORPESPONOING  VARABLE  LABELS. 

WRITE (6 , 1180 ) 

1183  F OPMAT ( 33H0  VEHICLE  NAME  VARIABLE  NAME  /  8X, 

*  21HOPTIONAL  P  +  n  VEHICLES  ) 

CO  150  11=1, NRD  _ 

IrNAMEM(H) 

WPITE ( 5 , 1190 )  VNAME(I),  NP(II) 

1190  F OPMAT ( 6X,  A8,  5*,  1HX,A2) 

150  CONTTNUE 

I F ( NVR  .LE.  NPO)  GO  TO  200 

151  WRITE (6,1200)  _  .  .  - 

1230  FORMAT (13X, 14 MOTHER  VEHTCLES  ) 

J=N»D*1 

DO  155  II=J,NVR 
I =NAMEN ( II ) 

WRI TE ( 6 , 11 90 )  VNAMF(I),  NP(IT) 

155  CONTINUE  .  _ .  _ 

* 

NROW=0 


DEVELOPED 


10002320 
10402330- 
10002340 
10002350 
10002360 
10032370 
10002360 
100.02390 
10C024C0 
10002410 
10002420 
10002430 
10002440 
10002450 
10CC2463 
10002470 
10002480 
10002490 
10002520 
10302510 
10002520 
10002530 
1000254 J 
10C02550 
1000256Q 
10302570 
10002560 
10C02590 
100026C0 
10002610 
10002620 
10C02630 
10332640 
10002650 
10002660 
10C02670 
10002680 
1Q002690 
10002700 
10302710 
10032720 
10002730 
10002740 
10002750 
10  C  02760 
10  00  2770 
10CC27B0 
10002790 
10002800 
_103C2810 
10 G 02820 
10002830 
10  00284J 
10002850 
10002860 
1D00287JD 
10002880 
1C  C02690 


-t  r>  o  ■  > 


MCO L=c 

0  l_TGT  pow  namfc 

w>r tr (<s , i?if »  rMavr 

121j  fopmat(?h  *,  i  l**  *3/  ?h  *  ,uu"=,nn'‘) 

W >TTF(4» 12111  FNrtMr 

1  ^ll  F1»MJT  (  4HM4 MC  1 1  t*  *  4  3  t  4HPOWS) 

MHH  Thf  onw  LA^FLS  on"  THE  MAST!"0  Vl,l5TaPLFp 

m  270  T=1,N V° 

woiTr <G,<?40>  MPIT) 

124.,  F  HPMAT  (  ?M  *,  3H  r  S!'MX,ft2> 

W»TTr(4,l?41>  MP( T ) 

Vi  JnMrN°n'4t  1 

I’M  FOPMAT  (  PH  r  SUMX,B0) 

22:  roviTTNUF 

POWS  FOP  oporjipcMCMT  CONST ° A INTS 

T  A  =  mdT-,‘ITHM’ 

00  225  I  =1  *  T  ft 
W  PI TF  f4,122c>  NP(T) 
i?2<;  pooMf.T  (M  c  °rte?) 

W  P I  T  r  (5,122«*>  NO  (  T  ) 

1?24  F0°HAT  (2-»  *(SH  r  °0,A?) 

►(OOWsNPOW*- 1 

223  COMTTMUF 

r. 

c  MOW  THF  POWS  acrOUHT™R  FOP  TMH  'PTTFO  F'.F^T. 

rr(MTNHP  .FQ.  0)  r-n  TP  1QQ 
iqrMTNHP  -  1 
IC(  in  .Cf).  Q»  GO  TO  ->!*: 

Oo  233  T=1,T° 

JrMTMHP  -  T 

M  om ( T )  =MM( J) 

7fn  r  n‘l  T  T  V|(J  F 

71+2  MOM  (  VII  MHO)  :M7 

IF  (MTV  .r0.  n>  0,0  TO  3U1 

MA  =  v|t>0  ♦  1 

J0=1 

JO  2^0  JJ=NB,MVp 
J=M4MFM( JJ) 

fF(VftVL  ( J)  .  Gc.  <*X>  r>0  TO  2F  . 

T  HVN  (  10  )  -  J  J 
J0  =  joi 

DO  PF.n  T  =1  ,  VJ T  V|H P 

I  F  (  VflVL  ( J)  •  0, T  .  MpFPVP(T*  2)  )  m  T0  250 
T  UrMAXC  (T4VL  <  J)  tMOFPYp(T,m  -  Y^Vt-U)  *■  1 
I Oi npf oyo(  1,2)  -  YAVL(J)  *■  1 

oo  ’45  K=ia,n 

IF(IMH{J,<)  •  GT  .  '  )  GO  TO  24° 

245  COMTTMtJF 
GO  TO 

240  WPTTf  (G,1250)  N*>»  IJ)  ,MPH(  I) 

125J  FT°MAT(2H  *,  5H  r  IW,42» 

WPTTE<<*,1251>  NP( JJ)  ,NPM(  I) 

MOOH:N°W  1 

I  "»c;  i  roPHftT  (  GH  F  T  W  •  A  ?  »  1HP  ,  \  ?  ) 


IOC C2QC0 
1 0  C  0201 0 
1 0  3C  2°?C 
1CCC?°?0 
lCtCC2<U'J 
iono?Q50 

13v 02OFJ 

lC'vt?07G 

1 0  C  C  2Q0  C 

iccc?oqQ 

i  o  r.  j  3 1. 1  j 

lOOQ’OlO 

10r.CT020 

10007Q,0 

1Coj3343 

10'.C335J 

ICtCTCfO 

1 C  t  u  3C  7C 

iccn2up: 

1C  gC3t‘0j 

1  0  i  C  3 1  j  9 

10CC311Q 

inr.OTtPn 

10 w 2  313J 

10U314C 

lGOulir.O 

10rfi31F0 

1 0  C  3  3 1  70 

1  jCCTIPO 

13C371°0 

i  oco3?ro 

l: 333210 
10  CL  3223 

10C032O0 

ior,o72«*o 
I?: 33 2cr 

100C72F0 
1  CuC  il’TO 
1C  CC32P0 
10CC  3200 
10H037CO 
1C.:C371L 
1C0C3323 
1C  LC  3  330 
) PP03340 
10013300 
130C33FC 
10003X70 
incn33BQ 
ICC  333°Q 
10  0  0  34  0  0 
1LCC3413 
10003420 
10003**3C 
1 0 i C  3440 
1C  C  C  3450 
1CCC34F0 
l'w ;347u 
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a  a 


250  CONTINUE 
260  CONTINUE 
C 

C  NOW  OUT  OUT  THE  LABELS  FOR  THE  ROWS  FOR  EACH  PERIOD*  THE  VEHICLE 
C  BALANCE  ROWS  FIRST,  THEN  THE  TASK  ROWS. 

TOO  IA=NINHP  ♦  1 

00  350  T=I A, N°T 

1 0=  I  -  NINH»  .  _  _  - - -- 

NU=NPERTR<I,3) 

00  340  JJ=1,NVR 

C  IF  THE  VEHICLE  IS  NOT  YET  AVALIA8LE  IT  CAN  NOT  BE  USED. 
J=NAM£N(JJ) 

IF(YAVL(J)  .GT.  NPFRYR(I,2)»  GO  TO  340 

C  HAKE  SURE  THE  VEHICLE  IS  USED  _ 

00  T2Q  K=1,NU 
<T=NPT  ASM  IS  *  K) 

NA=NTSK(KT) 

00  710  K2=1,NA 

IF(U(J,K2»KT)  .NE.  0.0)  GO  TO  33G 

Tin  continue 

323  CONTINUE 
GO  TO  340 

TTO  WRITE (6,1260)  NP< JJ) ,  NP(IS) 

1760  F ORHAT { 2H  %5H  E  X,A2,lHPfA2> 

WRI TF ( fc , 1261 )  NP(JJ),  NP(IS) 

MROW=NROW+l 

1761  FORMAT  (5H  E  X,A2,1HP,A2> 

340  CONTINUE 

00  345  K=1,NU 
KT=NPT  ASKI IS, K) 

WRTTr(6,1270)  NP(KT),  N«*(IS) 

1770  FO^HAT(?H  *,  5H  E  T,A2,1HP,A2» 

WRTTF(4,127l)  NP(KT),  NP(IB) 

NROW=NPOW«-l 

1271  FOOMAT  I  5H  E  T,A2,lHPfA2) 

346  CONTINUE 
360  CONTINUE 

COMPUTE  UPPER  BOUNDS 
00  TOO  IT=1,NVR 
UB(TT)=0.0 
I 2=NAHFN(I I) 

T AsNTNHP+1 

00  380  T=tA,NPT  _ 

NU=NPERYR(I,3) 

11=1  -  NTNH» 

IF  (VAVLII2)  .GT.NPFRVR«I,2M  GO  to  380 
00  375  J=1,NU 
J J  =  NPT  ASK III, J) 

TF=  PTASKI II , J) 

NA=NTSK(JJ) 

UMAX=Q .0 
00  370  K=1,NA 

TFIUMAX  .GT.  U(I2,K,JJ)  )  GO  TO  7?C 
UHAX=U(I2,K,  JJ) 

370  CONTINUE  _ 

UO(II)=UO<IT>  -  TF*UMAX*YRINT(I) 

375  CONTINUE 


10003480 
...  -10-003490- 
10033500 
.  10003510 
10003520 
10003530 
10001540 
.  .10110355a 

13003560 
10C03570 
1 0  00  3590 
10003580 
10003600 
...  10003610 
10003620 
10003633 
10C03640 
10003650 
10003660 
10D33670 
10003680 
1GG03690 
1CC037C0 
10003710 
10CC37?0 
.  1C003730 
1000*740 
1000375J 
10003760 
10C03770 
10003780 
....  10003790 
100038C0 
10003810 
1000*820 
10  CO  3833 
10  CO  3840 
— 100Q3&50 
10003860 
100C3870 
10CG3880 
10G038R0 
10003Rr0 
10D3391D 
10  DC  3920 
10GC3930 
10003940 
10003950 
10G03960 
—  XOC03970. 
10003980 
10C03990 
1GG040CG 
10004010 
10004020 
..  1Q.C04030 

10004040 
1CC04050 
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.->  o  o  o  o  vT  a  too 


t<uj  riMi'Nii" 

30,  rnuTTMIJF 

n”TTf(ii,i2?0) 

1 1?j  Fr>»MftTt?H  *,«H  M  POST) 

WPTTP<4,t?21> 

•iTriWs'l^Ow*- 1 

1221  FOPmaT  («H  N  ''nc-T)  ^ 

w^T  Tr  (S|1?I,C  ) 

l^SO  nriMfiTCJM  *,  7MCO|  l|MM$) 

W?TTF(S, 12903 

1?9„  ciomik’h  *  ,  “y ,  *  (pipt  iat  LTSfiNr,)*) 
WOTTc<4,l?11l 

10m  fOOHJT  (  7MCOLMMNC) 

MOW  rc  THT  MflTPIX  FLEMFNTF. 

THF  X*|M  COLUMNS. 

00  420  T-J,v,'/o 
I T  =  N6MCM(T  3 

wprrr(ft,i3G0i  M»(T)  ,»>P(T)  ,om^m 
L70  r  0°M9  t ( 2H  *,4X, lwx,ft9,7X, 

'J3TTr  (4,1X01)  NP(T)  , MP(T3  ,  Ompm 
mCOL=mCOL'*-1 

L3„l  c9°MftT  (4X, 1MV,A?,7X, 

423  0  OUT  T  M  * )  *2 

TMC  COLUMNS 

Tft: 

00  47j  T=j, , i a 

W’TTP  (It.HUI  WH)  ,MP(I)  ,0Mp 
1SU  F02M4T  (4X,lun,fl?,7X,?H»C,a2,Sy,Fl2.43 
W^fTF  (Sinci  MP(T)  ,H»(T)  ,0NC 
nu  poomijt  (">«  *,4Xf  lHPt  A2, 7X,2HP0f  '2, 6X  ,  Fl  %  4) 
mpuL=M?0l«-1 

IP  (T.H.IA)  00  T  o  4^3 
tp  (  T7°LM1  .F0 . 1)  On  Tfi  470 
W°TTP  (4,17173  NP(T)  ,OMC>« 

K^ttr  (6,1719)  mp(II  ,w»(i  +  t)  ,o»'ft 
171°  F94M6T  (?M  *  ,  4X  ,  IP°,  ft?,  7X  ,  2Hnr;,  a  ?,P>*»Fl2.43 
1713  FOPMftT  (4X,lPP,a?,7y  ,2HP0,  1  ">  ,6X  ,  P  1  2  .4  3 

47t  onMTTM’jr 

0CNP  ®a  TF  T  WP  WJJLLMM  COLUMNS 

44 u  t f < f ' t v  .no.  r>  r,n  Tn  4*0 
00  470  TT=1,MTV 
J  J=  TMVM ( IT ) 

JsMftMCM  (  JJ) 

paLL  yPCn$T(J» 

37  4FQ  T=1 , NTNHP 
MftXL=VLTPP ( J> 

tp ( xavt  ( J)  .ot.  noppyp(T,?)  )  r-o  to  use 

it  TS  asS'JMPO  #LL  TMP  VrCHtLFS  T»JHF°ITco  PPOM  ft 

tm  up  ft°st  yrft0  nr  tw  oc-pinn. 

ia  =  Mflxp  (yavL  (  J)  ,mcfpyp(j,u).  yjvKji  «•  1 
T0=MOf-pyp(i,?)  -  yavi(J)  ♦  i 
00  440  <=i«,io 


_  1  1. 0  4 (■  3 

1  j  C4.7C 

10')U4f^j 

sC'P'l&S  12  004  IPO 

1 0  0  r  4 1  r  o 
12  ,4Hd 

<e?\  ^  1 C  .  i.  4 1  ?  j 

XoyS  1  t  L  £4  1  7Q 

1  c n  r  4 1 4  0 

13 jC 41  SO 
i: ol4ip  j 
10004170 
1  3c  U4HC 
inC’041PC 
n-j04?C3 

ir.  i42i: 
10004220 
ino04?-»o 
l'1  •  34240 
10u34?cc. 

4HSUMX, A?,4X,P12.4) 10CG42F0 

10004270 

i  ;.C4?pc 

4HSUMX,A2,4X,P 12.43 ICC  C42°0 

1CC04TC0 
10C0471 0 
11, 34323 
100u473d 
10C0474C 

lon04Tso 

1C  ;  L47F.J 
1 C  0  C  4  T  7  [ 
10CO47PC 

10004700 
10  '044,3 
i: oc44io 
10CC4420 
10004470 
ICuO-444. 
1J0C44S3 
10CC4460 
10C04470 
i:rC44S3 
lCL-44°0 
1  0  0  0  4  5  C  0 
10  i>04Sl0 
IC004S20 
1CjJ4S7D 
1C  3C4S4C 
100C4SC0 
10004S60 
10  1C4S7l 
1jCC4S40 

PFPIOO  MPPP  PUPCHftSFni[,CO45o0 

1PP04S00 
luo  ,461 ; 
1000462, 
1  0  i.  0  463C 
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IF(TNH(J,K)  .GT.  P)  GO  TO  448 

445  CONTINUE 
GO  TO  460 

446  NAGE=SY-NP£PYP(I,1> 

C=  COSTS (NASE ,  2  ) 

L IFEP=MAXL-NAGE 

TF(C  .EQ.  0.0)  GO  TO  440 

c=-c  ...  _ 

WPITF(6,t330)  NP( J J) * NDN( I) *  NZ»  C 

1330  F ORMAT ( 2H  * , 4X, 1HW, A  2 , A2, A2, 3<* 4HC0ST , 6X ,E 12 . 4) 

WPITE ( 4  » 1331 )  NP(JJ) tNPH(I) ,N2,  O 

1331  FOPMAT  (4X*1HW,A2,A2* A2, 3X , 4HCOST , 6X ,F 12 . 4) 

440  WPITE (6.1340)  NP( J J) , NPM < I) , NZ ,  NP( JJ)  ,NPM ( I )  , ONE 

1340  FOPMAT  (  2H  *  ,  4  X  ,  1HW «  A2  ,  A2  ,  A2  ,  35L,  2HIN  ,  A2  ,1HP  ,  A2 ,3X^F1_2»4> 
WPITE (4,1341)  NP(JJ) ,NPM(I) ,N7,  NP( JJ) ,NPM (I > ,ONE 
MCOL=MCOL4-1 

1341  FOPMAT  (4Xf 1HW, A? , A?, A?,  3X,  2HIW, A2 , 1HP , A2 , 3X ,F12 . 4 > 

I A=NINHP+1 

DO  455  K=IA,NPT 

C  MAKE  SUPE  THE  VECHILE  IS  USED 
<Y=K-NTNHP 
NU=NPEPYP(K, 3) 

DO  451  KK=1,MU 
KT=NPT  ASK( KY, KK) 

MA=NTSKfKT) 

OO  450  K2=1,NA 

IF ( U ( J  *X2*  KT)  .NE.  0.0)  GO  TO  4511 

450  CONTINUE 

451  CONTINUE 
GO  TO  455 

4511  I F  ( SY4-L  IF£P  .LE.  NPEPYP(K,1))  GO  TO  46C 
I  Y=  N°EPYP(  K »  2  )  **NPFPY°  f  I  .  1 ) +1  . 

I X=N°EPYP( K»  2 )  -SY  ♦  1 
C  =-COSTS (I Y ,  2 ) 

I F  ( K  .EQ.  NPT)  C=-COSTSUY,3) 

OO  452  KK=1,IX 
KKK=KK*NAGE 

C=  C  ♦  C0STS(KKK,1)/VC0ST(J,4)**KK 

452  CONTINUE 

WPITE (6.1330)  NP(JJ) ,NPM(I) ,N»(KY> ,  C 
WPITE (4*1331)  NP(JJ) ,NPM(I) ,NP(KY) ,  C 

WPI TE ( 6* 1340 )  NP( J J) * N°M ( I ) *N° (K Y) *  NP ( JJ) ,NPM ( I) *  ONE 
WPTTE(4,1341)  NP(JJ) ,NPM(I) ,NP(KY> ,  NP(JJ) ,NPM(I) ,  ONE 
MOOL=MCOL+l 
C  =  1.0 

ALPHA=VCOST( J,4) 

LLL  3=0 

OO  4521  L3-I A ,K 
L 4  =  L3  -  NINHP 
C=-C 

WPITE (6,1350)  NP(JJ) ,NPM( I) ,NP(KY) ,  NP ( JJ) ,NP(L4) *  C 

1350  F OPMAT ( 2H  • , 4 X , 1HW, A2 , A2, A 2, 3X,  1HX, A2 , 1HP , A2 , 4X ,F12 .4) 
WPITE(4,1351)  NP( J J) *  NPM ( I ) »  No ( KY) *  NP (J J) ,NO (14) ,  C 

1351  FOPMAT  (4X*1HW,A2*A2,A2*3X*  1HX,A2 ,1HP,A2,4X,F12.4) 

LLL3=LLL7  ♦  ( NPEPYP(L3, 2) -NPEPYP (L3, 1 )  )  ♦  1 

C  =  AL°HA**LLL  3 
4521  CONTINUE 
455  CONTINUE 


13C04640 

llUiC4£50- 

10004660 

10004670 

10304660 

10004690 

1Q0C47C0 

_  100043.10. 

10  004720 
10C0473C 
10004740 
10004750 
10C04760 
...  10004770 

10G047*0 
10004790 
10GC48i!0 
10004610 
10  C04620 
10004830 
10004840 
10C04850 
IOC 04660 
10004870 
100 J48P0 
.  10004390 
10004900 
10004910 
10CC4920 
10004930 
100C4940 
.  10004950 

10004960 
10  0  0  49  70 
10004960 
10004990 
10005000 
...  10005010 
10C05020 
10005030 
10005040 
10005050 
10005060 

...  10005070 
10005080 
1C  005090 
100051  CO 
10005110 
10005120 
.  .  .10CC513O 
10005140 
10005150 
10C05160 
10005170 
10005180 
10005190 
10  :.05200 
10005210 
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4G0  °  OMT  T M'JF 
470  rn*jTTK|!JF 

r,CN-o^Tt;  th-  3,  x,  '.*"0  •*  FfV’  rHCH  PCPTOP 

490  T  4-MTMMO  ,  1 

in  F.;.J  ll=TA,m»t 

IF  Y°TMT  ( L  L  )  .r0.  1.  T T  IS  4SS'I'TE0  8LL  T  HF  VEHICLES  USED  A°F 

8Vfll.  IflPt  E.  H  E  M  r  E  NO  ''M'^CK  T  S  MATE, 
tc  (yptmt(ll)  .fo.  i,'  )  r,n  Tn  411 

NYOrMOrpya ( LL , ? ) 

T  H  f  SUPDTJTTMF  YT'ir90  FFTS  T  HF  4  PO'Y  8LTr«  TO  IN0IC4TF  TH c 
4L  T  “  PM  fl  T  T  V  FS  HAT  flPE  NOT  4V4LI8c3LF  F  ru  IJSE  IN  P£Pim  LL  . 

IF  4  L  T  ro  (  <  ,  J)  =  C  FHfM  4L  TFP414  TIVP  J  OF  TBS*  <  TS  MOT  4V4LT4TLE  FOO 
U'F. 

CALL  YTNTFPD  (  N  V0  ,*IT'I,NY®) 

<♦41  L  =L  L-NT  Mmp 

HO  i,oo  Jrl  ,  MV'n 

OFMcoftir  T Hr  PITKKLl.  F-ni  (jmms 
49.  mvFHU(.M=1 

>|ij  =  MriFOYO(  LL  ♦  ’I 
on  F->o  TT=l,Mij 

n  =  Mnrfl^Y(L,  T  T1 
M4-»|TS<  (10) 

<4  =  0 

r>0  F  1  Q  </=l,M4 

T c  (YMMmil  ,c0.  1.  I  r,n  rr  4  o  1 

TF  (AtTFO(«,  TO)  .n.  Cl)  oo  TO  <5l 
401  K  4=  K44- 1 

no  ftg  jj=i,m'/p 

J:M6urN  (  !J) 

IF(  'j  ( j , «  ,  T  n )  .rr.  ,.C)  r,o  to  s  L 
Tc  (Y4VKJ)  .0t.mofpyp(LL,2)  )  GO  to  ‘-cO 

MV  rwj(jj)-2 

r,  =°TBSK  (L,  TT  1  *IJ  C  I,VK  ,  T01  *YPT»’T  (LI.  > 

WPT  TF ( 4 , 13  Gi )  N"(  TO)  ,MP(<4)  ,MP(L  1  *  MO  (  .1  j )  ,  no  (L  )  ,  C 

13G1  FOOMBT  (4Y,  1P",V  ?,  TY,  1MY,  4:’f  IHO,  A?,  4Y  ,  Fl)>,4) 

TF  (LL .M". <5)  00  rr  F  c 

TF  (K4.0T.lf))  00  TO  For 

WOTTF(<j,nG0>  MP(T.O)  ,N°(KB)  ,N°(L  )  ♦  MO  (  J  J  )  ,  »|P  (  L  >  ,  0 
130.  FOn“lf  (?M  *,4Y,  l“n,  34?,  TY,  1 M  <  ,  4  ’’ ,  1  HP  ,  fl  ?  ,  4Y,  FI?, 4) 

5j.'  00‘ITTfJtjr 

W>TTc(4,13?t)  wP(!n),M£>«a(,‘">(L'»  llP(»D'»f°(L),  ONE 

mool  -mool*-  l 

1171  F0PM4T  <4X,  IMP, ■*!)?,  TV,  1HT,  V,)MP  ,4  ■>,  4Y,  F 1 2 , 4) 

TF  (LL.NE.5)  00  TO  l  C 

TF  (K4.OT.lO)  OP  TO  FIT 

WPTTF(e,,i37C  )  MP(  TO)  ,NP(K4)  ,*»o(L  )  ,  mp  (  TO  1  ,  M°  (L  1  »  ONF 
137j  rO'»”.4T(2H  *,4  Y,  IMP, 342,  TY,  1MT  ,  '2,  imp  ,  4  4Y,  FJ2.4) 

<510  ''OMTTN'JF 
F  o  rj  COMTTMHF 

L  ?\|0;'|nr  jp  (ll  ,  2)  -mpfpyp(lL,  1)  *1 

MOW  OF  Mr  o  A  T  F  THT  OOL'JMMF 

00  F  T  Q  JJ=l,MVO 
TS  =  MVEmj(jj) 

00  TO(07:,F2r) , TO 

r  TOr?  TMOT^STFO  VFMjrtr  jj  <JSr  1  I N  oro  I  on  L 


lOLCG?^ 

12:  Jr>27. 

IF.  3  -0  ?  4  C 
30110200 
1C  t  C^PF  L 
IOC  n<i?7£i 

10^:0?**: 
n:  oo?o. 
1  c  u  0  7  r  : 
1  n  c  c  *5  ■»  1 0 

1  C  L  2  0  3?  * 
i::cr-3Tf. 
1  Of CS34C 
10f  0  0  3  F  t 
lCCCE’G'. 
10c. 037. 
1 0 :  c  o  t  0  0 

10000400 
1:  Cl.  *4  1  j 
3  C  J  C  5  3°  J 
It  CLF42C 

iorro4?n 

iact'044 ) 
ICtfOLFC 
1C  CC04FC 
3  0  f  0  F  4  7  n 
lr  .  '  F  4  P  " 

1 2 :  c  0  4  o  c 

lot  L^FC  C 

3  r n  c  0  f  1  r 

1  •’  ^<5F?; 
3  2  C  0  0  F  ’  ; 
1C  CC0S4C 

3  0  fl  0  F  F  F  0 
12  OFF. 
1C  C007: 
lGoOOFPC 

iofosfqo 

12  .COG  J 
12 .LOGIC 
1C  CuGG 20 
10000030 
13 -„5G42 
10CCOGFC 
lOCOGGFt. 
10C0SO70 
i’  ;ff«: 
ic  ccffo: 
1 OC  C07C  c 
30000710 
it :cG7?a 
10t0r*73C 
1000^740 
lLCtG7FC 
10000700 
1G2o577T 

1  C  ‘  J  *>  7  9  ij 
i:lC07oi 
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J=NAMEN ( JJ ) 

CALL  YRCOST(J) 

c=o 

00  526  IS=1,LENP 
C  =  C  *  COSTS ( T  S*  1) 

I F ( N°ER YR(LL *  2)  .£0.  LY)  GO 
C  =  C  *  COSTS ( L  ENP,  2) 

GO  TO  527 

C=C.  -  C0STS(LENP,7) 

WRITF (4*1391)  NP(^J),N°(L) 

FOPMAT  (4X,1«X,3A2,  3X, 

IF  (LL.NE.5)  GO  TO  53C 
WRI TE (6 , 1390  )  NP(JJ),NO(L) 
F 0RM4T ( 2H  *,4X, 1HX,3«2,  3X, 
WRITE (  4 , 1401 )  NP(JJ) ,NP(L) , 
FORMAT  (4X,1HX,3A2,  3X, 

IF  (LL.NE.5)  GO  TOj531 
WRITF  <  6(1400)  NP(JJ) ,N°(L> , 
FOPHAT(2H  *,4X, 1MX,3A2,  3X, 
IF  (LL.NE.51  GO  TO  529 
WRITF  (6*1304)  N«>  (JJ)  ,NP(L) 
FOPMAT  (?H  *,4X*1MX,7A2*3X, 
WRITE (6  *  1380 )  NP( JJ) ,NP(L) * 
F ORMAT ( 2H  *, 4X, 1HV,3« 2,  3X, 
WRITF  (4,1385)  NP(JJ),NR(L) 
FORMAT  (4X,1HX,3A2,3X, 

WRITF  (4,1381)  NP ( JJ) ,NP(L ) 

;mcol=mcol«-i 


TO  52  3 


, N° ( L ) ,  NP ( JJ1 ,  ONE 
4HSUMX, A2,  4X,  F12.4) 

,NP(L),  NP(JJ),  ONE 
4HSUMX, A2 » _  4X,  E12.4) 

N°(L )  ,  NP( JJ),NP(L) ,  ONEM 
1HX, A2,1HP,A2,4X,  F12.4) 

I 

NP(L),  NP ( JJ) , NP (L) ,  ONEM 
1HX, A2,1HP,A2,4X,  F12.4) 

,N°(L),NP(L>, VCOST (  J»5) 

2H°C , A2 , 6X , F12. 4) 

NP(L)  ,  C 

4HC0ST ,6X,F12.4) 

, N°( L  > ,NP(L) , VCOST (  J,5) 
2HPC,  A2*6X,F12.41 
,N®(L )  ,C 


FOPMAT  ( 4  X , 1H 

L  °1 =LL  *  1 
IF  (L°l  .GT.  NPT) 
00  545  L1=LP1,NPT 


\ 

(  4 X  ,  1 M x' ,  3  A 2 ,  3X,  4HC0ST.6X  ,  FI 4) 


GO  TO  570 


MAKE  SUPE  VEHICLE  JJ  IS  USEO  IN  PERIOD  LI. 

I F (  VLIFE(J)  .LE.  (NPERYR(L1,1)  -  NPER YP (LL , 1 ) )  )  GO  TO  545 
N!J=NPERYP(L1,3) 

DO  540  11=1, NU 

L?=L1-NIMHP  .  .. 

TO=NPTASK(L,  II)  \ 

NA=NtSK (ID) 

DO  535  KK=1,MA 

I F (  U(J,KK,I0)  .NF.  n.O)  GO  TO  54H 
535  CONTINUE 
540  CONTINUE 
GO  TO  545 

5411  AL°HA= VCOST ( J ,4 ) 

C  =  1.0  1 

LLL3=0 

00  5442  L3=LL ,L 1 

\  c=-c  .  - 

L4=L3-NINHP 

IF  (LL.NE.5)  GO  TO  5443 

WRI TF ( 6 , 1400 )  NP(JJ) ,NP(L) ,NP(L2) ,  NP ( JJ ) , N» (L4) ,  C 
5443  WRITE (4,1401)  NP(JJ) *N°(L) ,NP(L2),  NP ( JJ) , NP (L4) ,  C 
LLL  3=LLL3*  (N°EPY°(L3,2)-NPERYP(L3,1) )  ♦  1 
C=ALPHA**LLL3 
5442  CONTINUE 

C  =  0  ' 


10GC580C 
iooqsjiq 
10CC5820 
10005830 
10005840 
10005(850 
10C05860 
10-00-5  8  70 
10305880 
10005890 
10C059r0 
10005910 
100C5920 
.  10005930 
10005940 
10005950 
10005960 
10005970 
10005980 
10005990 
10  Q060CC 
100C6C10 
10006020 
10006030 
10C06G40 
.  10006050 
10006060 
10006070 
10CG608G 
10006090 
10  OC6100 
10006110 
10006130 
1000614Q 
10006120 
10CJ615Q 
10006160 
.10006170 
10006180 
10006190 
10006200 
10306210 
101006220 
_  10006230 
10006240 
10006250 
10006260 
10006270 
10006280 
_  10006290- 
100063C0 
10006310 
10006320 
10C0 6330 
10006340 
1 QUO 6 350 
10006360 
10006370 
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l.LLl=Nogoyo(H,  2) -MPrPYOfLL,  1)  *■  i 

on  64?  T6=i, i  lli 
54?  r=G  +  rnsTSds.i) 

I F ( mofp yo{  L 1  *  2)  .PR.  IX)  GO  T0  543 
~=r  -  rosTsuLLi,?) 

G 0  TD  544 

543  C=(?  -  0OSTS(LLLl,"?> 

544  WRITP  (4,1  385)  NP  ( J  J  )  ,  N°  ( L  )  ,  t<®  ( L  5  >  ,  NP  {  L  )  ,  VOOST  (  J,5) 

H°T  TP  (4,1351)  MP(JJ)  ,NO(L) ,NP(L ?) ,0 

mOOl^OOL+I 

IF  (LL.MF.6)  GO  TP  5441 

WPt  Tr  (5, 1354)  NP  ( JJ)  ,NP(L)  ,1’°  (L  ?>  ,NP(L  >  ,  VOOST(  J,5) 
WPTTP(5,135C)  MP(JJ) ,NP(U  ,NP(L?»  ,  0 
5441  W’TTP(4,1301)  NP  (  J  J)  ,  NP  <L  >  ,  WP  (L  2  )  ,  NP(JJ),  ONE 
rr  (il.nf.6>  r,n  m  545 

WPITP(fi,l?O0)  MP(JJ) ,M°(U ,NP(L?) ,  NP(JJ),  ONE 

545  C.  0NT  TNIJP 

MOW  G<:Npp<lTF  THF  GJJLL  OOLUHM 
COLL  HOTH(J) 

W°T TP (4,1411)  NP( JJ) ,N»(L ) ,  P 
1411  F0*M5 T  (4T,  1HP,?4?,5X,  4HCO~T,6X,  FI?. 4) 

MOOL=MOOL+1 

W ° I  Tc  (4,1412)  MO(JJ) ,NP<L) ,MO( JJ) ,NP(l ) ,ONF 
141?  P  f)OM  ft  T  (4X,lMG,?ft?,5V,lMY,42,lHPtfl2,4X,F12.4) 

IF  (LL . Nr. 5 )  0"  rn  6/0 

WPITP(5,141G)  NP( J.M  ,N“(L)  ,  0,  N">(JJ),NP(L),  ONP 
14 1  j  F  OPMflT  (  ?H  »,4X,  1^0, ?A?,5X,  4HOOOT  ,6X ,  F12.4,  3X  ,  1HX,  ft?  ,  1HP  , \2  , 

*  4X.P12.4) 

57u  OONTTNIIF 
63j  OOMTTNOF 

NOW  GiNFPfl  Tc  THF  ° IOmT-HANO-STOE  £L"MFNTS 
W°T  TF (5 , 142C ) 

14?0  FORMAT ( ?M  * , ’ H°HP ) 

W°  T  TF (4, 14 ?1 ) 

MCnL=NOOL» 1 

1421  FORMAT  (3HOHG) 


GrN£PflTr  THF  °H5  ppp  PPOCUPEMPNT  OONSTRBTNTO 

T  ftsN°T -NTNH° 

00  610  1=1, Ift 
I0=I*NTNHP 

W°TTP  (4,1435)  KP(T) ,PU0G(IB> 

1435  FOOHftT  (4X,4HPHSl,6X,2HDC,ft?,FY,Fl?.4) 

W°I TP  (6,1434)  MO(T) ,0U0G(I«> 

1434  FOPMST  (?H  * f 4X , 4HPHF 1 , 6X , 2HPQ , A ? , 6X , F l ? , 4 ) 
61 J  CONTINUE 

0  GENFPft  Tr  T  HP  OHG  Fn-J  IMhfpITFO  FLEd  onwS 
615  IP  ( N  T  V  .Pf).  C)  GO  TO  65? 
no  64Q  TT=1,NIV 
J  J=THVN(TT) 

JrNflMPM(JJ) 
on  633  T=1,NINHP 


10PG63PQ 
10006350 
ICi '  u64(  3 
lCcC641C 
1C,:C6420 
10CC6430 
1C' 3644 j 
1 3  l  Q64PQ 
1CGC54F0 
10006430 
10'.C648J 
10CC64P0 
10CC66C0 
1CG06510 
1  0  C  6  5  2  J 
10306573 
1CCC6540 
It  016500 
11C06660 
13i)3667j 
13oC65«0 
1C0C659C 
10006600 
1CC3661G 
13;’C66?3 
1CCL667C 
1 0  C  06640 
13  3  06650 
10.06660 
1 C  t  C667L 
1C0066°0 
13'.  (.66°  J 
1 G  r  C  6  7  f  C 
1GCC6710 
10006720 
Id  C677J 
1 C  • 1  (,  6  7  4  o 
ICC  06750 
1Q13676C 
10006770 
ioro67pj 
1GC  367°G 
10(060(0 
10CG6*1Q 
ICC  C68?b 
1GC06830 
1CCC684C 
1CCG6RP0 
13  3u68f  C 
1 J  C  068  70 
1C0G68P0 
10  (.L6P5C 
100C65GC 
10b  b  65 1 C 
1C({.652& 
lOOGbP^O 
10  U654  J 
1C.0656C 
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TF(YAVL(J>  .GT.  NPFRYP<I,2>>  GO  TO  630 

isum=o 

T A  =  MAX0 (YAVL ( J)  ,NPEPYP(T,1> >  -  YAVL(J)  ♦  1 
I6=NPEPYP(I,2)  -  YAVL(J)  «•  1 
00  620  K=I  A, I 0 
620  ISUM=ISUM  ♦  INH(J,K> 

IF(TSUM  .EQ.  0)  GO  TO  630 

C=FLOAT(TSUM)  .  .  _ 

WRTTE  (6,1440  )  NP(JJ) ,  N»M(I),  C 

1440  F0®MAT(7H  *,4X,  4H®HS1,6X,  2HIW, A2,1H® ,A2, 3X,  F12.4) 

WRITE ( 4 , 1441 )  NP(JJ),  NPM(I),  C 

1441  FOPHAT  (  4  X  ,  4H®HS1,6X,  2HIW , A2 , 1HP , A  2 , 3X ,  F12.4) 

63  j  CONTINUE 

640  CONTTNUE 

NOW  GENEPATE  THE  RHS  FOP  THE  TASK  ®OWS 
650  TA  =  NINHP+-1 

OO  700  LL=IA,N®T 
L=LL-NINHP 
NU*NPEPYP<LL ,3) 

OO  6®C  K=1 , NO 
KT=NPTASK(L,K) 

WRTTE(6,1450>  NP(KT),  N®(L),  ONE 

1450  FOPMAT(2H  *,4X,  4HRHS1,6X,  1HT, A ’ ,1HP, A2 ,4X »F12. 4) 

HPITF(4, 14511  NP(KT),  N®(L),  ONE 

1451  FORMAT  (4X,  4HRHS1,6X,  1HT, A2.1HP, A2,4X,F12.4> 

600  CONTTNUE 

730  CONTTNUE 

WRITE (6, 1460) 

1460  F OPM AT ( ?H  *,  6HEN0ATA) 

WRITF(4, 1461) 

1461  FORMAT  (  6HENPATA) 

FNO  FILE  4 

call  matfill (npow.hcol.ub.nvpi 

WRITE  (6,3000)  NPPW, MCOL , (UB ( I ) , T=1 ,NVR> 

3000  FORmut  <*0  IMOORTaNT  DATA  ITEMS  FOR  INPUT  TO  BOCAVL®  *  / 

A  •  NUMBER  OF  ROWS  (INCLUDING  COST)  IS  *,T4  / 

B  *  NUMBER  OF  COLUMNS  (INCLUDING  RHS)  IS  *,I7  / 

C  *  UPPER  ROUNOS  FOP  VEHICLES  IN  ORDER  FPOM  XI  THRU  XN  ARE  *7 
0  (1H  ,13X,F12.4)> 

PPOOUCE  OUTPUT  LISTING  FOR  DOCUMENTATION  OF  RUN 

WRITE  (6,2010) 

WPTTE  (6,2020) 

2010  FORMAT  (*1  VEHICLE  VARIABLE  RIJPCHASE  O  AND  N  R  ! 

*  RETENTION  year  FIRST  LIFE  IN*) 

2a20  FORMAT  (*  NAME  NAME  COST  COST  CO! 

*  PATE  AVAILABLE  YEARS*) 

I  Y=SY 

LIST  VEHICLE  VARIABLE  NAME,  AMO  COST  DATA 

DO  600  1=1, NVP 
IT=NAMEN(I) 

WRITE  (6,2030)  VM AME ( TI ) , N® ( I> , ( VCOST ( 1 1 , J )  •  J=1 ,4) , Y AVL (J I ) , 
*VLIFE(II) 

2030  FOPMAT  (1H0,4X, A«,7X,1HX,A2,4(F6.4,4X> ,2X,I4,6X,I2) 


O  AND  N 


R  AND 


10006060 
10006073 
10006060 
10006000 
10C07000 
10007010 
100C7C20 
10GX17Q31) 
10007040 
10007050 
10C 07063 
10007070 
10007060 
1J0L7JRC 
10C071C0 
10C07110 
10007120 
10307130 
1CC0714C 
10007150 
10007160 
10007170 
1C007160 
10007100 
10007200 
10  u  37210 
1 0  C  07220 
ICC- 07230 
10007740 
10007253 
13C0726Q 
10C07270 
1C  007260 
10007200 
10O07300 
10007310 
1 0  C  0  7320 
10007330 
10007340 
IDT  j7350 
10007360 
10007370 
10307363 
10  0  07  390 
100C74CO 
10C07410 
10007420 
10007430 
10CJ7440 
10007450 
10G07460 
10 307470 
1C  0  0  7460 
10CD7490 
10007500 
10007510 
1C  CC  7620 
10LC753D 


I>-l4 


O  o  e  c:  t-  e  o  c  o  o  c- 


if  (Y4vl<ti) .lt.tyi  ty=yavl<ji) 

8  30  CONTINUE 

nESCPTOE  THE  T  NHFPTTcn  FLFET 

IF  (TY.EO.SY)  GO  TH  *21 
W 9  T  Tc  ( 5 ,2  C4C  > 

G4o  FOomat  (*-  roMnnwEMTS  OF  THT  T  NHFPI TFO  FLcFT*> 

TF  (  tSv-IV)  .GT.  ?<M  T Y  =S  Y»  ">0 
no  810  I =1 Y  ,  S  Y 
1  I  =  T-l  Y4-1 
810  YEfip(IT)-I 

T  mh Y°S=SY*  I Y 

W^TTF  <5,2050  (YFfiP(I) ,I=t,TNHYpS) 

05  j  FOOmat  <lH0,20Xt2C (T5J) 

NA=NV9-NTV*1 
no  820  1=  1,NV9 
J=WAMFM  (  I) 

IFfVAVL (J) .GF.SY)  GO  TO  82 Q 
<K= YAVL (J) -TY 
DO  *15  <=lfTNMYP5 
TF  (YK.LT.K)  GO  TO  814 
yFAD(K) =0 
GO  Tn  «i5 
814  <1=K-K< 

Y  E  A  °  (  K ) =IMH(  J,K1) 

*15  CONTINUE 

wr»ITC  <5,2050  Mnm  ,  (YEA»(K)  ,K  =  J  ,TMHYPS> 

2050  ^OpM«T  (15H  NMvnF~«  OF  X,A2,4X,2r (I5> > 

8?8  ''omttnuE 

F 0°  E«OW  °FpT O O  ,  t  TST  ALL  OF  TMF  APPLICABLE  TASK  MATPTCES 
821  IAsNTMMP+1 


1" -.254: 
ID.  C  ?55(j 

10C0T5FC 

io:ct57c 

100 J 75*3 
1 0  t  u  TftPQ 
lCOGTftCO 
10L0761C 
10007520 
IP.']  7630 
1C  ".0  2540 
ICC  0  2ft^C 
lOFC/ftftP 
ICC  0  2570 
ICC  075*0 
1C  L0  2ftPG 
100077C0 
io:oy7il 
1QCC7720 

10  C  G  77  tq 
10002740 
1CU77F0 
1JC0775: 
10CC7770 
iooc77«n 
iJC027go 
ic:02«fo 
1CCC7810 
10CC7*5>0 
icc:78?: 
1C  4 0  T940 
101  C78«=c 

1CCC7«50 

10007870 


207  J 


■»C80 


2000 


OO  *53  T=IA,MOT  10;:78"C 

WOT  TF  (5,2070  Noc,’YO(T,l),MPFOyJ(T,2|  lPiC780Q 

FOOM/IT  (35W-  TttSKS  PFOUIPFO  TN  DFP  TOO  FOOM  ,T4,9H  THpOUSH  ,I4)10CC7OLo 
M=MoroYo(j  f  ■»)  10C07P10 

On  845  J=l,w  10  0702., 

I  ‘1=  I -N T NHP  10CC7P30 

JJ  =  NPTA<5X(TM,J)  1  C  C  C  704  C 

wPTTf  (5,2080  mp(JJ),  »TASK»IM,  1),  Y»INT(T)  10007050 

FOPWAT  (1H0 ,5X,  *T(iSK  *,!?,*  -  PFPFOPPFO  PY  *,F5.2,*  FOoCF  CL  FMFN1 0  0  C  7PfC 

*  T ( 5 )  *  WITH  STALE  FACTOP  FQUAl  *,F5.3>  1000970 

TT=C  ICC  079*0 

TF  (YPINT(T)  ,NF.  1.0  GO  TO  *45  1000  7OO0 

W°T  TF  (  ft  ,?OPO  1Q'38'.:0 

FOPMAT  (1M  ,  5  X ,  1M*  )  13(0800 

1000*020 

OFTFpmINE  WHICH  VWTTLFS  Apf  USFO  IN  FATH  T  ASX  *  JJ .  1PCD9C:'0 

13C 38040 

( I =  °F 9 T 0 0 ,  K  =  VFWICLE,  II=NUNBFp  OF  VEHICLES  USFO,  10.08.50 

KK=NU88Fo  OF  ALTFPNATIVFS)  10008(50 

10CGPP70 


K«=MTS< ( JJ) 

00  *70  K=1,NV9 
k'  =  NAMFM(K) 

PO  9?9  l=i.<k 


1C.  u  8  C  0  C 

IOC- 08090 
1  0 1  C  9  1  c  c 
1  r  r.  o  9 1 1 0 
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IF  (U(N,L,  JJ)  .EQ.C)  GO  TO  82Q 

II*II*1 

NL(IT) =NP(<) 

NN( IT) =  N 
NAMES(  TI)  =  K 
GO  TO  830 
829  CONTINUE 
*30  CONTINUE 

WRITF  (6,2100)  (NL (K)  ,K=1,II) 

2100  FORMAT  (IN  ,7X,11H*  VARIABLE  , 1 0 t 3X , 1HX, A2 ) ) 
WRTTF  (6,2110) 

2110  FORMAT  (IN  , 8X, OH******»**> 

WRIT*  (6,2120) 

2120  format  (1H  ,6X, 11HALTERNATIVE) 

FILL  IN  TASK  MATRIX 

00  84 4  L=1,KK 
OO  840  K=1 , I T 
N=NN(K) 

GO  TO  (*31,  832,8?-*, 834, 835,  *36,  *37,83*,  839)  ,K 

831  WPITF  (6,2131)  L,U(N,L,JJ) 

2131  FOPMAT  (1H  ,15X,T?,2X,F5.C> 

GO  TO  840 

832  WRITF  (6,213?)  U(N,L,JJ) 

2132  FORMAT  ( IN*-,  25X  ,F5 .  0 ) 

GO  TO  840 

833  WRITE  (6,2133)  U(N,L,JJ) 

2133  FORMAT  ( IH*, 31X  ,  F5 .0 ) 

GO  TO  840 

834  WRITE  (6,2134)  U(N,L,JJ) 

2134  FOPMAT  ( 1H*, 37X  ,F*  .  0 ) 

GO  TO  840 

835  WRITE  (6,2135)  U(N,L,JJ) 

2135  FORMAT  (1W*,43X,F«;.0) 

GO  TO  840 

836  WRITF  (6,2136)  U(N,L,JJ) 

2136  FOPMAT  (1M+,49X,F6.Q) 

GO  Tn  840 

837  WRTTF  *6,2137)  U(W,L,JJ) 

2137  FOPMAT  (1H+,55X  ,FR.0> 

GO  TO  84C 

838  WRIT*7  (6,2138)  U(N,L,JJ) 

2138  FOPMAT  (1H»,61X,F«;,0) 

GO  TO  840 

839  WRITE  (6,2139)  U(M,L,JJ) 

2139  FOPMAT  <1H«-,67X,F5.0> 

840  CONTINUE 

844  CONTINUE 

845  CONTINUE 
850  CONTINUE 

STOP 

FNO 


100 08120 
1DCC8130 
10008140 
10008150 
10008160 
10C08170 
10008180 

_ 10  C  081.90 

10C08210 
10008210 
10008220 
10008230 
10008240 
10008250 
10C08260 
10C08270 
10008280 
10G0829C 
10CL83C0 
10008310 
10C 08320 
10008330 
10008340 
10008350 
1 0  C  C  8  360 
10008370  i 

10008380 
10008390 
130 08400 
10CC841Q 
10C08420 
10003430 
1000*440 
10CQB450 
10008460 
1C  CC  3470 
10008480 
10  QC  3493 
10C085L0 
10008510 
10008520 
10038520 
10008540 
100C3550 
10008560 
10008573 

10C08580  ] 

10003500  j 

1CCC86U  j 

10008610  \ 

10008620  j 

10CC8630 

10008640 
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SU9°0UTINE  M AT  FTI  L  (  m  ,M  ,  U9  ,M  VP) 

DIMENSION  »VflL(l?C)  , "NAME (120) 

DIMFnSIDN  IffOWTP(lCC) 

DIMENSION  UPftJ 
DATA  I T  ,  1 1  /  1H  T  » 1 M I  / 

OfiTa  C  /  7HICOLUMNF  /,R  /  3HPHS  / 

T  =  0 
j=n 

to  u;o  <=i,ico 

4 j  J  IPOWTO(to  =  o 

OFWTMT  4 

Wp  TTE  ( Q*7  00  0 )  M,'1,  (UPd)  tT=l,MV'’> 

703d  FORMAT (216/ (6F12.4)) 

'’Fin  (4,4000)  0UM1,0'JM? 

TF  ( rOF  ,  4)  120,1 

1  N3TTr(Tft,pi}n>  OU'M 

u  . .  .  r  (44  ,  u  x,  A*> 

rcao  ( 4 ,41  j o )  nil'*’ 

410  j  FORMAT  (44) 

no  1 r  T  1 1 , m 

t>F40  (  4 , 42  0  G  )  P  MS  mc  (  T  ) 

4203  F  0OM4T  ( 4X , A  7 ) 

F  NO  nnc ( 1 ,9  C  0  C ,ITFMO)  pNAMF(I) 

IF( T TEMP. Fn. TT. OF . T  TrMR. fq .II)  I^ONTPI I) =4 
9UJ3  f D°M  AT ( A 1) 

if  (FOF.4)  120,1'. 

Id  oonttmuf 

°  F  a  p  (4,4300)  D'JM4 

4  3  J  3  FOPMflT  (47) 

IF  (n’JM4.FQ.0)G0  TO  ,?o 
MPITF  (Fl,  44  0  C )  0UM4 

4400  FORMAT (*  INf;pP»FOTLY  pf AO  FILE - COLUMNS  oFflD  AS  *,A 7) 

PFTl)PN 

23  PF4p  (4,4500)  CNA“F,ptfmp, VAL 
4500  FORMAT  (4X,A7,3X,A7,-«X,F12,4) 

W»ITC  (6.5CCC) 

5  33  3  FORMAT  (*1  prcppfMrF  LIST  FO®  COLUMN  NUMnE  PS  ANO  NAMES* ) 

WUT  TF ( 6 , 61 CC  )  ( IPPWTP(K) ,<  =  1,M) 

WPTTF(q,«s000)  (Ir,PWTP(<),K  =  l,N) 

6330  F0PMCT(T12) 

6103  F OP“  AT  ( 1H  ,  1  L  0 1 1) 

L  =  1 

no  mo  j=i,m 

CO  TO  (?1,2?, 23, 74, 25), L 
21  W D I  TF  (6,5100  J,CNAM£ 

5100  fopmaT  (1H  , 4X, T5,4X, A7) 

CO  TO  ?6 

7?  KPITF  (6,5?0O  J,CNAME 

5233  format  (1H+,24X,I5,4x,A7) 

CO  TO  26 

23  uiPITF  (6,5300  J ,  CNA  MF 
5300  FORMAT  (IH+,44X,Tc,4X,A7) 

CO  TO  26 

24  MPITF  (6,5400  J.Omamf 
54GC  FORMAT  (lH*,64X,rS,4*,A7) 

CO  TO  26 

25  WRITF  (6,5500  J,CMA“E 


10 jC6653 
1000*660 
1 nno36/o 

131266*0 
10lG56OC 
1 CC0P7CC 
1000371 0 
1C  Ci.6720 
10006730 
10006740 
100067^0 
l^MTFi) 
1GC06770 
1CCC6760 
10G067°0 
10..  366.  0 
i : , 6  6 1  o 

1C0C662C 
10LC6630 
u  :*64j 
10006650 
1CCC6HFC 
10006670 
ic :c66P3 

1001 66OQ 

icrj04Rrc 
1GCGS910 
1C; :«P?) 
1001)6970 
lCf.C6q4C 
13CC8950 
10506960 
10:06973 
1C  r.C69**o 
1GCC69QC 

loncqf'co 
1G  j,9C10 
ICCjOG 20 
iorc9CTo 
in.,coc4C 
1GCCO050 
10109060 
13OC9070 
10GC9080 
10CG9Q90 
1CC091C0 
10009110 
1 0  C  0  91 20 
10CG91.3G 
1GCGQ14G 
10009160 

in; 3916C 
1CC09170 
10009160 
10009190 
10! C  R  2  C  0 
10CL921 J 


MT 


5500  FORMAT  (1H«-,84X ,I5,4X,A7) 

26  L  =L  +  1 

TF(L.GT.5)L=1 
WRITE ( 7*5700)  J  »CNAME 
5700  F ORMAT ( 15,  4X , A7 ) 

DO  10  1=1, N 
30  RVAL ( I ) =0*  0 
40  00  50  1=1, N 

TF  (RTEMP.NE.RNAMF(I) )  GO  TO  50 
RVAL (I) =VAL 
GO  TO  60 
50  CONTINUE 

60  IF  (J.NE.(M-l))  GO  TO  90 
IF  (I.NE.N)  GO  TO  so. 

READ  (4,4600)  0UH5 
4600  FORMAT  (A3) 

TF  (FOF , 4)  120,70 
70  IF  (DUH5.EQ.P)  GO  TO  80 
WRITE  (6,4700)  CNAME 
4700  FORMATS  THE  N-l  COLUMN  WAS  *,A7,* 
RETURN 

80  RE AO  (4,4500)  CTFMP,PTEM®, VAL 
IF  (FOF, 4)  120, RP 
R0  IF  (CTEMP.EQ. CNAME)  GO  TO  40 
CNAME=CTENP 

WRITE  (9,4800)  (8VAL (K) ,K=1,N) 

4800  FORMAT  (F12.4) 

100  CONTINUE 
END  FILE  9 
END  FILE  7 
return 


10009220 

. . 101)09230 

10  0092'' 0 
10009250 
10009260 
10009270 
10G09280 

. . . . XOGO  9290- 

10009300 

10009310 

10009320 

10009330 

10009340 

......  -  -  . .10009350 

10009360 

10009370 

10009380 

10009390 

10CG94C3 

UNABLE  TO  FIND  RHS  MARK*) -  10009410 

10009420 

10009430 

10009440 

10009450 

10009460 

...  .  10009470 

111009480 
10C09490 
10009500 
10G09510 
10009520 
-10009530 
10009540 
10009550 
10C09560 


120  WRITE  (6,4900)  J,I 
4900  FORMAT (*  REACHEO  EOF  WHILE  WRITING  COLUMN  *,I7,*  AND  ROW  *,T4) 
RETURN 
END 
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SUBROUTINE  YPCOST(J) 

A  SUBROUTINE  TO  COMPUTF  THE  0°FRAT  T  MG,  SALVAGE,  AND  TPUNCA  T  T  ON 
COSTS  YfA®  BY  YEAR.  ALSO  THE  YFAPL v  MOTHPAlLING  SAVING  IS  COMPUTED 
COMMON  /VECSTG/  VNAM>M10>,  C,LPNP,  VLIEE(13>,  TNH(10,16>, 

*  VC0ST(1C,5) ,  NAMrN(10),  COS^S ( 3  '  ,?> 

TNTEGFP  VNAMFtVLTFr 

ASSUME  THE  OPERA TTNG  A»»o  MAINTANCF  rOST  INCREASES  AT  P*100  P£P-CENT 
A  YPAP  (NOT  A  COHPOUNO  PATE  INCEASE) 
o  =  0. G 

LET  X  =  THE  1ST  YEAP  f.  ANT  H.  COST.  THEN 

*♦ <i*p>  **♦ t+?*9>  **♦ . . .+(i+b*p>*x=vcost( j , ; 
X  =  VC0ST(J,2>  MIC  .0  *  45.1*R) 

ASSUME  NO  PERIOD  IS  LONGER  THAN  5  YEARS. 

IB=VLTEE(J)  >10 
DO  ic  T=1,IB 

COSTSd ,1» =(1.0  ♦  EL0AT(I-l>*R>*X*<VC0ST(J,4>**d-l>> 

10  CONTINUE 

ASSUME  THE  SALVAGE  V* LU^  OF  A  VEHICLE  AFTER  I  YEARS  OF  SERVTOF  IS 
(ALPHA)**!  *PURCHASF  COST. 

ALPHA=0 ,S 
Y  =VCOST (  J» 1) 

DO  20  T  =1» 1 0 
Y=  AL°HA*Y 
COSTSd  ,2)  =Y 
20  CONTINUE 

ASSUME  TRUNCATION  AFTER  TYEAES  of  service  TS 
(VLIFE-T)*  ( PURCH  ASE  COSn/VLIEE 

Y=VCOST (J,l) /VLIFF(J) 

00  TO  1=1, IP 
TX=VLIEE(J) -T 
IF  (TX.LT.O)  TX=0 
COSTS(I, 3)=TX*Y 
TO  CONTINUE 
RETURN 
ENTRY  MOTH 

ASSSUMF  THF  MOTHBALL  TNG  SAVTNG  TS  R'.*1CC  DF^>  CENT  OF  THE  FIRST  Y^AP 
Rt=n.qo 
C  =  0 

DO  54E  IL=1,LENP 

54S  C=C-G.l*Pl*VCOST(J,2) *VC0ST(J,4) **(IL-1) 

C  =-X  *  R1 

C=-VCOST(J,2)/(i:.r  ♦  45.0*R)  *  ?1 

PFTUPN 

FNO 


10C0863C 
10CGAF40 
.  10C096E0 
10CG8EFC 
lGLG8f.7G 
10CG AFPO 
10008600 
i:nos7:o 
1CL08710 
10CG8720 
1CCCA73G 
?>  1C  l'GAtuu 
13C087E0 
1CC08760 
1CCG877Q 
10008780 
lCCb»7O0 
1Q0U88CQ 
1CCG8.810 

iono88?o 

10^38830 

10CC88G0 
10G088F0 
1  COL  9 870 
irCG8«»0 
10C088P0 
lOGGOOPO 
1 0  J  C  801 0 
lCLfiBBPO 
10LG8B3G 
10rC8O4G 
lObCBBSO 
1  G  b  3 “PFO 
IOC  09970 
lCOOBBRO 
iQ.'Csqqa 
1CDGBCCG 
10CGPG10 
COST-x 


lCGCOO*!) 

10C090°0 
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SUBROUTINE  YINTERP..(NVR,NTR,NYR)  . 

COMMON  /TSKSTG/  U(7,?88,9)  ,NTSK<  9) 

COMMON  /  ALTSTG  /  ALTER (288,9) , YAVL (10 ) 

INTEGER  ALTER 
INTEGER  JSU3 ( 10 ) , YAVL 
00  20  1=1, NTR 

N=NTSK  (I)  .  .  _ .  .  .  .  .  . 

00  10  J=1,N 
10  ALTER(J,T)=1 
20  CONTINUE 

00  30  1=1, NVR 

IF  (YAVL(I) .LE.NYR)  GO  TO  30 
I  VR  =  I 
GO  TO  40 
30  continue 
return 

40  L  =0 

on  SO  J=IVR»  NVR 
TF  (YAVL(J).LE.NYP)  GO  TO  50 
L=L+1 
JSUB(L) =J 
SO  CONTINUE 
C 

C  THE  SET  OF  VEHICLES  WHICH  WILL  NOT  EXIST  IN  YEAR  NYR 
C  HAS  BEEN  DEFINED  — —  NOW  WE  WILL  ORDER  THE  SET 
C  IN  THF  REVERSE  OF  THE  ORDER  TN  WHICH  THEY  WILL 

C  BE  DEVELOPED . 

C 

00  70  1  =  1,  L 
N  =  I 

K=JSUB (I) 

00  60  J=N,  L 
M=JSU9(J) 

TF  (YAVL(N) .LE.YAVLCK))  GO  TO  60 
JSUB(J) =K 
JSUBCI) =M 
K=M 

60  CONTINUE 
70  CONTINUE 
C 

C  FOR  EACH  TASK,  WE  WILL  DEFINE  THE  SET  OF  ALTERNATIVES 
C  WHERE  THE  7NON-EXTSTENT*  VEHICLES  ARE  DOING  ONLY 

C  THOSE  tasks  WHICH  APR  THEIR  PRIMARY  RESPONSIBILITY, 

C  THAT  IS,  WHERE  THF  RFQUTREMENT  FOR  THEM  IS  A  MINIMUM 

C 

DO  150  1=1, NTR 
N=NTSK (I) 

00  140  JJ=1,L 
J=JSUB(JJ> 

VMIN=99S9. 

00  100  K=1 ,  N 

IF  CALTER(K,I) .EO.C)  GO  TO  130 
TF  (UCJ,K, I)  .LT  .VMIN)  VMIN=U ( J, K  ,  I ) 

100  CONTINUE 

00  130  K=1,N 

IF  (ALTER(K,I) .EO.O)  GO  TO  130 
IF  (U(J,K,I) .EQ.VMIN)  GO  TO  130 

D-20 


__  10010040 

10010050 
10G10060 
10010070 
10010080 
10013090 

_ LfldliUOO 

10G1011C 
10010120 
10013133 
10010143 
10010150 
1001G16C 
10010170 
10C13160 
10010190 
10010200 
10010210 
10  C1Q220 
10010230 
10010240 
100102S0 
10  Cl  0260 
10013270 
10010280 
10G102Q0 
10C103C0 
10013310 
10010320 
10  C10  330 
.10010340 
10013350 
10010360 
10010370 
10010380 
10C1Q390 

- . 10010400 

10010410 
10010420 
1001 J430 
10010443 
10010450 

_ 10010460 

10G10470 
10010480 
1CC10490 
10010503 
10010510 
10  CIO 520 
10  Cl  05  30 
10010540 
10013550 
10010560 
10C10570 
.  .  lQJUDSfiLD 
13010SP0 
10  0106G0 


1 


HLTF°(<,T) =c 
110  COMTTMUF 
It.  3  CONTINUE 

lod  continue 

of  rt|t>M 
PNC 


1CL1G610 

10U1762: 

lOtlO^i) 

lCil&6*0 

icur6r' 

10  Cl  OfcC 
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PROGRAM  9aCAV2afcPUT*0UJPliT,TAP£A.,.TAPEl.*JAP£2,  _ 

1  TAPE3.TAPE7, TAPES, TAPE5=INPUTfTAPE6=0UTPUT, 

2  TAPF9=TA®F4> 

LABELLED  COMMON 

COMMON  /  CV1  /  IPC12)  ,RP<12> ,TMP  (10) 

COMMON  /  CV2  /  T(lM,10)-,90(.19fl)  ^BLOdil)  .ULOtlOl .CAIlfll _ - 

COMMON  /  CV3  /  M,N,NOF,PHIT,UZ,USP,USM,EKO,MPLUS 

COMMON  t  CV4  /  IXC110),X(ii0) ,IXZ(110> ,XZtilO> ,XCONtlO> ,COST 

COMMON  /  CV5  /  SIOMA(100,4) ,TSIG  .LSTMAX 

COMMON  /  CV7  7  NPHASE,NFl,CFX,IO®T,NOP,NOPS,NEHXZ 

COMMON  /  CVS  /  NXPK, XK, NOBOL  »  EKBt (25) 

COMMON  /  CV9  /  PSIGL  (  25)  , NXBL125 )  ,  XNXBL125)  , BLIST (  25,1-31) 
C0MM0N/THX/TM0,FXT,TITLE<4> 

INTEGEP  UB,CI,BV 

OtMENSION  TSTO(13C' )  , LSTFRE ( 25 ) 

DIMENSION  BLT(IO)  ,ULT<10)  ,CTCU) 


/  REA0C5, 4448) (TITLECI) ,1=1,4) 
IFfEOF,5)l,2 

1  END  FILE  8 
STOPG003 

2  CALL  PAPAMS 
PP( 12)  =0.0 
IPf9>=25 
NFREFrO 

CT  =  4 
UR  =  3 
LB  =  2 
DV  =  1 

MNC  =  (  -1)  *  NCF 
MNX  =  (-!>*  N 

EPSI  =  RP(l> 

NOPA  =  IPC2I 
MPLUS= NORA ♦NCF 
NOPS  -  1 

NCF4  =  NCF  *  3  ♦  NOPA 

CALL  RE ADI N 
CALL  BOX1 

SOLVE  1ST  LP-PROBLEM 

55  CONTINUE 
US  =  USP 

IF  ( "  UZ  .LT.  0.0)  US  =  USM 
IF  (NOP.GE.IPC1211  GO  TO  4444 

lstmax=maxoclstmax,nobod 

PMIN=1.E20 
OO  3000  I=t , N080L 
IF(®SIGL(I) .GE.PMIN)  GO  TO  3000 
PMIN=PSIGL(T) 
nmin=i  _  _ 

3000  CONTINUE 

IFCPMIN.LT. US)  GO  TO  3020 


_ 20209010- 

20000020 
20000030 
20000040 
20000050 
20000050 
_ ?nnnnn7n 

20000080 

20000090 

20000100 

20000110 

20000120 

.  20000130 

20000140 
20000150 
20000150 
20000170 
20000180 
20000190 
2000G2C0 
20C00210 
20000220 
200UG230 
20CC0240 
.  20 CO 0250 
P0000250 
20000270 
20000280 
20000290 
2000030') 
-23990  llo 
20000320 
20CC0330 
20000340 
20000350 
20000350 
..  -.20000370 
20000380 
20000390 
20000400 
20000410 
20C00420 
20000430 
20C00440 
20000450 
20000450 
20000470 
20C00480 
20000490- 
20C005C0 
20000510 
20000523 
20C00533 
20000540 

_  20  000550 

20000550 

20000570 
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wpit«*<f,tcic) 

1010  FOOMflTflH-, t4MO90PLF«  SOL  VFD ) 

GO  TO  1*1*1* 6 

1323  fSIOL (MMTM) =1 .F2C 

MFogr  r  MFnrp*.  j 
LSTFSF (MF?rF ) :MVfW 
NXOK=NXBL(N4IN> 

E<o=r<qL  (NNTN) 

XK=XMX PL (NMJ N ) 

O0  H  TO  J=l,NOF 
Jl=**096*J 
J2=NrF  J1 
J  1  =  MPF«.  J? 

0L"( J)  =  UTST (MMIM, Jl) 

•J  L  °  ( J )  =OLTST  j?» 

5DTj  00  ( J)  =OLIST  J3) 

00  T'-(.9  Jr  1  ,MflOi 
1uU..  00  (J)  =01  1ST  (NMTN,  J) 

TMOTr=l 

OOK  r  OLOtNXOK) 

l)0<  r  DLDtMXOO 
r 

c 

OO  in  T  =  1 ,MPF 
T«o ( T )  =  0.0 

OLT(I)  =  C.C 
dlt(T)  =  o.r 
OT (T)  =  c .0 
13  GOMTIN'JE 

OO  TO  I  =  1 f  NO F U 

°FOrFTNc  STGHfl  FOP  ict-i_P-°o  FPOM  K^-OATA 

*0  TSTO(T)  =  O.C 
MMIMsMOOfl-l 
00  'IF?  T  -1  *  NM  TN 
SF2  Sir,MA(I,pv»  =  pom 

00  FFT  T  =  1,  TIOF 
ST0*MT,10)  =  PL  o  (  T  > 

SIG«AfI,UP)  =  ULP<n 
S  T  GM A ( T ,C I ) =  0O(T) 

551  O.OMT  I  M'JF 

X*STO  =  XK 

SOT  X(«)  =  TOO 

XK  =  XK  -  0O< 

SFT  iJPPGP  BOUND  =  Y  (K ) 

STGMA(NxnK,UO)  =  XK 
TSTO  =F<0 

S  IGPA  (NOOA  ,RV)  r-TFyr, 

00(NOO5)r-TGTG 

9LT<MXBX>  =  GTGPA  (»»Xr'K,LP> 

OL  T  (NX OK)  -XK  «•  01  T  (  NXOK) 

SLOPE  0r  X  ( NXOO  (0  TO  XK) 
SPTFTOO  p IGHT  BY  blT(NXOK) 

BLO  (»'XBK)  =  BL  T  (NXBX) 

OL  0 ( MXn  K )  =  XK 

OALL  GOTO  (NXBK,BLT,ULT,OT) 


2CC0UFp0 

2c:j:5pj 

2  3'.  JOPi.3 
2UCG610 
2GCaOF2L 

?ncoof»',o 
20  C  C"P<d 
20C036F3 
?PfOCFFO 
20  0  0  OF  70 
2  o  i,  0  0  P  fl  3 
23w OOFBC 
20CCC7C0 
20000710 
20*03720 
2 3CC 37 70 
?PC0P7t*C 
?nooc7oo 
?  j  0  3  0  7  F  J 
20303770 
20GOC7FO 
COO  790 
23COOOU-  J 
23l33«1: 
2CC CGF?C 
,0C0C°',0 
?Ul03*U*0 
2CCC3853 
2CCCC‘»*0 
2  L  i  L  0  H  7  r 
2  0  J  C  ■  "Bu 
20uG3BC0 
2  0  C  C3  0 1  0 
20L0G88C 
20rr,rjQ7n 

poglcbto 

2C:t oO^u 
20CGGOC0 
?ccnoq<:-o 

2  0  3  3 1 B  7  3 
2  P : CGOPu 
20CC0B°0 
2CC010CO 

2:;uici: 

2LlC10?3 
2  P  (  C 10  7C 

?c  ::il«*c 

2*fC13F0 
20C01CFO 
2CCL1070 
2P001P»0 
2CCC1090 
2Po011C0 
2PC01110 
200 Oil’ 0 
23  G  C 1 1 13 
2CCC11<*0 
23CG115G 
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SIGMA (NX8K, C I)  =  CT(NXBK) 
CO(NXBK) =CT (NXBK) 

NOP  =  NOP  ♦  1 

00  5555  TNO=l»NPLUS 
X (INO) =0 
5555  IX(INO>=0 

GALL  TABOUT  (1) 

NCF1=NCF 
NF1  =  0 

CALL  LP  (NORA ,N,NCF1) 

CALL  T 8 BOUT  12) 

CALL  TIHEC 
COST 1  =  COST 
IF (NF 1  .ME.  1) GO  TO  BO 
57  CONTINUE 

DO  6665  J=1,NCF 
TNP(J)=0 

6665  XCON(J)=0 

00  6666  IND=1»MPLUS 

IF  (IX (INO) .GT. NCF  .OR.  IX(INO). 

rCOL=IX(IN0) 

TMP(ICOL)=X( INO) 

X  (INO)  =X(IND)  +-BLO  (  TOOL) 
XCON(ICOL)=X(IND) 

C 

6666  CONTINUE 
IND  =  C 

00  6577  Js 1 , NCF 

IF  (PLO(J).EQ.  O.C)  GO  TO  6677 
TF  (XCON(J) .GT. 0. C)  GO  TO  6677 
XCON(J)=BLO(J) 

I X ( MPLUS-IND) =J 
X(NPLUS-INO)  =BLO(J) 

INO-IND+1 
66 77  CONTINUE 

RP  ( 12) =COST-TSIG 
00  6667  J=t,NCF 

6667  RP(12)=PP(12)-TMP(J)*C0(J) 

NOPS  =  MOPS  ♦  t 
HNV  =  (-N) 

CALL  TIHEC 

C 

CALL  GETPHI  (MNCjXrON,TMP,PHIT) 
CALL  TIHEC 


SOLVE  <  PRIME  LP  PROBLEM 


’*Q.  0)  GO  TO  6666 


OEFINE  X ( K)  FROM  Y1K) 


EVALUATF  OBJECTIVE  F(X) 


C 

573 


WRITE (6,573)  PHTT 
FORMAT  UHO,  1 1HPHI  (XAOJ) 


=  ,ipei«.  n 


IF  (TP(ll)  .EQ.l) 

•WRITF  (6,575)  (TX(I) ,X(I) ,I=l,MOLUS) 

575  FORMAT  (1HQ,5(7H  COL  ,14, 2H  =,F12.4>) 


IF (PHI T  ,GE.  UZ) GO  TO  70 
PHIT  ,LT.  UZ  FOR  1ST-PPOBLEM 

U7  =  PHTT 
DO  58  I=1,M®LUS 
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20001160 
...  .20001170- 
20001160 
20001190 
20001200 
20001210 
20  00122C 
20001230 
20001240 
2000125C 
20001260 
2C0C1270 
20001250 
_  .  20C01290 

200013C0 
20C01310 
20001320 
200C133Q 
20001340 

_  20001350 

20001360 
20001370 
20001350 
20G01390 
20001400 
20001410 
20  C  C 1 420 
20C0143Q 
20001440 
20  C  01450 
20C01460 
20C01470 
20001480 
20001490 
20  C  01500 
20C01510 
20C01520 
..  _  20001530 
20001540 
2C001550 
20001560 
20001570 
20C015B0 
.  ...  20001590 
20001600 
20  0  0 161 0 
20001620 
20001630 
20001640 
.20  001650. 
20001660 
200C1670 
20001650 
20001690 
20001760 
_  2QQ0171Q 

20C01720 
20001730 


2CGC174J 

SO 

X7 ( T)  =  X ( I) 

2CL01TFC 

Mf  w  yr=  i 

ini.ciTFc 

•  IIP  =  CJ77  (  1  .P  *  rorT)  , 

20 • L177C 

■|ru  =  (•  17  /  (  1  •  J  -  r°c  T >  ) 

2GC.17P2 

•  11  =  IJS° 

2C3L1TOC 

IFCI7  .LT.  r.C)Uc  =  USM 

20001810 

7G 

rjOMTtM'jr 

2  •  .  0  1  8  n 

T r ( TIP  T l  .ir.  U^lin  TO  10 

2  0  C  G  1 8  2  0 

CALL  MyopN(xrpKi,  S|OmA,  NXR) 

2GoCl"7G 

1 

TF(MFpr-.LC.O)  GO  TP  2000 

20T01840 

MIL  rLGTFPC-  (NF  PF  F) 

20-11810 

MFOFFTMFDEr-l 

2  C  C  0  l  8  F  L 

in  to  ?aio 

2000187 C 

20  Ci  j 

MP1PI  :NWL  +  1 

poroiRFn 

MOL  rMOOOL 

20  Ml  80; 

[F(MP1PL.LE.  I°(D)  GO  TP  2  j  1  » 

2C  0 0 1  ° C 0 

WPTTF(<5,?C201 

20CC1P1C 

2020 

F OPMrtT ( 1H- ,»“LIST  cT7F  rv'EEDC 

n*  > 

2000112P 

GO  TP  444F> 

20CG1970 

20 1  j 

PSIGL (MOL) =COST 

sim 

?: C  G 1 9 4 C 

mxpl<NOL>=MX° 

/ 

200019 rG 

c  <  7L fMOL)=TSTG 

?0P019F0 

XMY«L  (‘1  PL)  =  VPON<myp) 

Aly 

2MU1QT: 

IP  ?:.70  J=l,Mpr 

2  l  0  G  1 9  J  G 

Jl=MPOjF.I 

AAA 

20  L  0 1 9°3 

J  ?tMFF * J] 

<AA 

?neo2ono 

J7  =  Mpc  +  J-> 

2  2 :  C  2  -  1  c 

1 L  I  IT  (  MPL  ,  J1 )  =1  TO**#  ( ,J  ,L  *  5 

2CGG2C20 

PLT1T(Mf)Lt  J?)  -STGMfl,  ,flJo) 

2CCC2G9C 

207  j 

OL I  IT (mpl,  J7) =1 TGV1 <  l  ,0T) 

?ono7r4o 

no  H40  j=  ii“on( 

2-:jC20Bu 

204  j 

PLTITJNOL.J  >  sSTr-MM 

22CG2M.J 

ir ( TMOTC.PT. 2)  Go  to  si 

2GC02C7C 

9o 

0  P  FIT  T  MIJ<T 

?nP0?08p 

I MP  Tp=  2 

2  G  C  0  7  0  o  c 

IP  11  I  =  l.NCF 

2GGG21GC 

1L  T ( T 1  -  C.C 

2CirC211G 

■JLT(I>  =  C.C 

20CC2120 

CT  (n  =  o.n 

2K:712y 

TMP(I)  r  C.C 

20(02140 

ii 

COMTTMIJF 

2CC0219r 

20lG71FC 

pr 

DrFTNF  1IGM4  FOP  7,'p»l  °-°B  Fppm 

KP-11TA 

20.02120 

20002180 

IP  °S  I=1,N“TM 

73C071OQ 

STGMS ( T ,1V)  F  RP ( T ) 

20CG22C0 

S  TGMS ( 1 ,1 V)  =  stoma ( T,1V) -  ( 

T ( r ,Nyq<  > *y<> 

20002210 

pp  (  T )  fSTG1*#  (  T  ,PV) 

20. 02221 

1=5 

COMT  TM'JF 

2C  G  j  22  7C 

IP  If)  I  :  1,  NPF 

2GC0  ’24C 

SIGMmT.LD  -  PL  p  ( I ) 

20C07?rn 

1 1 GMfl ( T  ,UB)  =  UL  o  f I ) 

2CM22F0 

STGMftd.GT)  =  PP(T) 

2CM227C 

riF^TNF  L  0  H  F"  °  TOllNjn 

Oir  X(K> 

20G022»C 

IF  K  -  c 

70G07?on 

15 

CPMTTMUF 

2  r.  ,  c  ?  7 1  u 

F.rT  'Jpo^  OF 

X  (<>  . 

2  0  C  J  2  !1  C 
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c  o 


THIS 

THIS 


TS  THE  ONLY  BOUNO  FOP 
VARIABLE  SENT.  TO  THE.  LP 


BRK2  =  RBK  ♦  x K 
U8K2  =  UBK-XK 
ST OH A  C  NXBK»  UB)  =  UBK2 
SIGMA (NXBK* LB)  =  RRK2 
BLTINXRK)  =  BOX 

call  get°hi (nxbk,blt,thp,ohV) 

phi  s  TMP(NXRK) 

8LT (NXBK)  =  8BK2 

CALL  GET“HT <NXRK,RLT,TMP,OMY> 

°H2  =  THP (NXBK ) 

TP2  =  0 

TSIG  =  EKO  -  PHI  ♦  PH 2 
SIGMA (NOPA ,PV) =-TSTG 
9  0  (  NOP  A )  =-  T*S  T  G  \ 

BLT(NXRK)  =  RRK2 
ULT(NXBK)  =  R9K2  ♦  UBK2 

BLO(NXRK)=9LT (NXBK) 
i)LO(NXBK)  =  URK2 
CALL  GETC  ( MXRK, RLT , ULT , CT) 
SIGMMNXRK.m  =  CT(NXRK) 
CO(NXBK) =CT (NXBK) 

NOP  =  NOP  +  1 

k  ’  ) 

00  7777  INO=t,MPLOS  1 
X (I  MO) =0 
7777  I  X ( TNO ) =0 

CALL  TABflUT  (1) 

MCPl^NC^ 

MF1=0, 

CALL  Lp  (NOPA .N.NCPl) 

CALL  TABOUT  (2) 

COST?  =  COST 
IF(mfi  .NE.  1) GO  TO  55 
104  CONTINUE 

NOPS  =  NOPS  ♦  1 
00  8687  J=1,NCF 
TMD(J)=0  1 

8837  XCON(J)=0 

0  0  8  888  TNO=l  t  M°L  IJ* 

IF  (IX(TNO) .GT.NCF  .OR.  IX(TNO) 
I C0L=I X  ( INO) 

THP(TCOL)=X(INO) 

X (TNO) =X (INO) ♦BLO( TOOL) 
XCON(TCOL) =X ( IND) 

8333  CONTINUE 
INO=0 

00  88BB  Jr 1  *  NCF 

IF  (RLO(J).EO.  O.C)  GO  TO  88BB 
IF  (XCON(J) .GT.Q.O)  GO  TO  88qq 
XCON(J) =RLO< J) 

IX(MPLUS-INO) =J 
X(MPLUS-INO)  =RLO(J> 

I N0=TN0+1 
389B  CONTINUE 

P° ( 12) =COST-TSIG 


SET  SLOPE  OF  X(K),  IF  BPK  =  3 


2C  002320 
cnDE2iuo2a3a 
20002340 
20002350 
20002360 
20  002370' 
20002380 

_ 20002390. 

200C2400 
20002410 
20002420 
20  OP  2430 
20002440 
...  20002450 

2C  0  02460 
20002470 
20002480 
20002490 
23002500 

. .  20002510 

20CC2520 

20002530 

20.102540 

20002550 

2000256Q 

SOLVE  K  DOUBLE  PRIME  L»  OPQBLEM  20002570 

20002580 
2C0025P0 
20G026C0 
20002610 
20002620 
.2  0002630 
2C  002640 
20002650 
20002660 
20C02670 
20  0G26P0 
2 0002690 

'  20 0 02700 

2QCG2710 
2C  002720 
20002730 
20002740 
23002750 
20002760 
20002770 
20002780 
20002790 
20C02BC0 
_20002&10L 
20002820 
20GG283G 
20002840 
20002850 
20, '02860 
20002870 
2f0C2880 
20002890 


EQ.3)  GO  TO  8888 
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GO  AAA9  J=  1 ,  mcf 

20.0  26C0 

mi 

D°( 12) =p°<12) -TMO(j) *CO(J) 

2CCG261  0 

"  a  L  L  G  r  T  °H  T  (MNC,  vnr»M,TMOtOMTT> 

?ooo76?c 

r. 

2crrj’07j 

w°TTF(6,573)  ohit  ^ 

20002643 

t p  t ( 1 1>  .po.n 

20  u 0  ?65C 

•  WOTTE  (6,576)  (IV(T)  ,X(T) 

2CC  L206C 

20  302673 

Tc  <  °M  T  T  ,GE.  UZIC"  TO  no 

20002600 

()■»  S  OMTT 

?' r l ?6oq 

n0  1(7  r=l,HnLU5 

2  C  C  L  3  u  (  0 

TX7 (T) =TX(T)  \ 

70001010 

in? 

xrm  =  y  <  t  > 

PC;  if  li,2 3 

NCW V7=l 

2C  u  C 1030 

!JS°  =  (  U7  /  ( 1  ,C  4  FPST)  ) 

20001C40 

us*  =  (  u*  / (i -  ppsi) ) 

70001060 

t)6  =  1 15° 

2  3  „  .  1 3  6  j 

IPC/7  .LT.  I1. 0)1*°  =  USM 

PCCD3 J7j 

U'l 

GONTTNlJE 

?0C£.10*>0 

i 

TF{''qST7.3r.US)  50  To  65 

?n(?ni060 

GALL  M*n=*N(V5nN,  6T6M4,  NX") 

2  3  C  f.  3110 

60  TO  HOC 

23003113 

4444 

W°T  Tr  (6,4445) 

20 1( 1120 

4445 

foomat  (7  HAVE  6^1  VFO  Hay,  NO.  Oi-  t1  ppoiq.  <;ft  ov  T°C12»*> 

20003130 

44  46 

WPITF(q,444«) (TITLP(T) , T=l,4) 

23  .  C  3140 

444  * 

F0PMBT(4aiC) 

203431 50 

WOTTr( 6,4447)  (I*’(T)  ,V7(T)  ,T  =  i,MPLUS> 

20CL3160 

4447 

format (T4,4X,F12»4) 

20303170 

W“TTr(1,4lt(,7)  HNC,H? 

233131*2 

*'EWX  Z  =  1 

2C  l  G  31«?0 

gall  T a rojt  (7) 

2000*2 CO 

r,o  TO  7 

2CCC3210 

?G 

OALL  p*TT 

20P077?0 

cNp 

20303233 
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SURPOtmxE  8HX1 


LARFLLECI 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


COMMON 

/  CV1  /  1° ( 12 ) ,Rp ( 12) »TM° ( 10 ) 

/  CV2  /  T(1C0, 10) ,80(100) ,BLn(10) ,ULO(iO) ,CO(10) 

/  CVS  /  M, N, NO F, PH  IT , UZ»USP,USM ,  EKO  » MPLUS 
/  CV4  /  IX(110)fX(110), 1X7(110)  ,X7(110),XCON(10).iCQST 
/  CV5  /  STGMA(100,4)  ,TSIG  ,LSTM  AX 

/  cv7  /  nphase,nfi,cfx,iopt,nop,nops,nehxz 

/  CV8  /  NXBK,XK,N080L,EK81  (25) 

/  CV9  /  PSIGL (25) ,NX8L(25) ,XNX8L(75) ,RUT$T(25,13l) 


INTEGER  UB, C I , RV 
BOX  NO.  1  (NO°  =  1) 


CT  =  4 
UR  =  3 
LB  =  ? 

BV  =  1 

NORA  =  TP ( 2 ) 

MNO  =(-!)*  NCF 
MNX  =  (-1)*  N 

CALL  GFTO  (NNC,PLO,ULO,CO) 

CALL  INITA  ( NCF ,N, NODA) 

CALL  GETRHI (MNC, PLO,TM°,ESIG) 

EK"  =  ESIG 

C  SET  TSIGMA  FOR  1ST  L p  P»OB. 

00  10  T  =  1 , NCF 
TMP(I)  =  0.0 
SIGMA ( I, L8) =BLO(I) 

SIGMA (I, JB) =UL  0(1) 

SIGMA ( T,CI) =CO(T) 

10  CONTINUE 

DO  15  I  =  1 , NORA 
SIGMA ( I ,8V) =  BO ( T ) 

15  CONTINUE 
TSIG  =  EKO 
C 

NOP  =  1 

no  5555  INO=l, MPLUS 
X  7 ( I NO) =0 
1X7 (TNO)=0 
X (I  NO) =0 
5555  IX(INQ)=0 

CALL  TABOUT  (1) 

ncfi=nof 

NF1=G 

CALL  LP  (N0PA,N,NCF1) 

CALL  TABOUT  (2) 

IF (NF 1  .NE.  1) GO  TO  7 
28  CONTINUE 

00  31  J-l,  NCF 
31  XCON(J)=0 

00  5666  INO=  1 ,  MPLl'S 

IF  (IX(INO).GT. NCF  .OR,  IX(INO) ,FQ, GO  TO  6666 


2BLCJ2.4Q 
20603250 
20  0  0  32F0 
20003270 
20003260 
20 CC 3290 

_ 200.0.3300 

20003310 
20003320 
20C03330 
20003340 
20003350 
20003360 
20003370 
20003380 
20003300 
20003400 
20003410 
20003420 
20 J13430 
20  0  Q  3440 
2P  00  3450 
20003460 
20033470 
2GQ0348Q. 
200034B0 
2P0035C0 
20  C  0  3510 
20003520 
20CC353C 
.  20003540 
20003550 
20  C  0  3550 
20003570 
20  C0  35P0 
200035BC 
20  0  036011- 
20  CC3610 
20003620 
20C03630 
2QCG364Q 
20003650 
2Q003662 
20003670 
20  00  3680 
20C036°0 
20003700 
20033713 
20003720 
20003730 
20003740 
200 33753 
20003760 
20003770 
20003780 
20003790 
20003800 
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1 POL=IX  (  TNT) 

?tcciaio 

V  f  I M0>  =V<IM9)  *Pin(irr|_> 

20CC3920 

xciNiirni)  =  x  ( inm 

21003930 

5655 

P9NTINUF 

23CC394C 

no  15  J  =  1,M®L<JS 

20CC  3950 

T  *Z (J) =  I  x  (  J ) 

20G03P00 

X7(J)  =  X<J> 

?PrG3«7C 

31 

0  0  M  T  Y  M 1 J  c 

20U39ej 

""WX7: 1 

2CCC*9®C 

50  ( 12)  zpnpT 

20003900 

PO  5557  .1=1, MPF 

20'?o3Pn 

5557 

p°(12)=p°(1?) -yp^Nrj) *on ( J) 

2 C  C C  3920 

•'ALL  5  r  T  °H  T  < MNP , VPIM , T*P , U7 ) 

20&09Q73 

cdft  =  <70  ( 1 ) 

2000391.0 

|J5C=  CJ7  /(I  .0  ♦  nP^I)  ) 

20CC39cu 

USM=  ( U 7  /(l.C  -  FPOI)) 

2C  uu  3950 

5<P  =  T5IG 

2CC03970 

200039P0 

c  tc 

5F°  5« 

20  0  0  3903 

CALL  N*nt?N  ( *P0M,cI5Mfl,NX5) 

23GQ40CC 

L<?TMftx=i 

20  004010 

NOainL  =  l 

20004920 

PSI5L ( 1 ) =POST 

2  0  0  1  4  3 

XK  =  VPON  ( MX «=» > 

2  0  C  C  4  Q  4  0 

XMX9L< 1) =7C0N(NXo) 

2CC04C5C 

' ! X Q L  ( 1 )  =►1X9 

200 04050 

n<9L(l) =TS 15 

21 0040 70 

51 

PONT  I  Nil*7 

20004090 

00  5?  T  =  1,MCF 

20CC4C°C 

9L  n  ( I )  =  ST5NA  <T,LP> 

20004100 

CO(I)  =  Sir.Mft(T,rH 

20  n  0 4 1 1  (. 

'JLO(T)  =  STP.Mfl  (T  ,'IP) 

2C0G412G 

I  1  =  M0D(\*  J 

20004130 

T  7=  MPF  +  T  1 

20  004140 

I 7  =  N0C  +  jp 

2C n  04ir: 

9LI5T(l,Tl)=PLO(T) 

20004150 

0LT5T(i  ,tp)  siiLnm 

20CC4170 

PLIST(l,I3)=r0(I) 

200041°0 

5? 

PONT  T  NUC 

2Cou41«J 

no  51  T  =  l.NOPft 

2UUC4200 

90  (  T  )  =  SI5*«a  <T,nV) 

2CCC4210 

oiTSTd.T  )=90(T) 

20  004220 

51 

PONT  T  MUF 

20  14270 

777 

prT'JPN 

2CCC424C 

7 

CALL  99CAV2 

20  004250 

5N0 

20004250 

D-29 


c 

c 

c 

c 

c 

c 


SUBROUTINE  GETASQ1N0ES*ELM.»  JSQ) 
...SHELL  HETHOO  OF  HALVING 


GETASQ INOES.ELM, JSQ)  SORTS  ELH ( J) , J=1 ,NOES  IN 
ORESET  INITIAL  POSITION  COOE  OF  ELH (J) 

JSQ(J)  PRESET  TO  (-1)  WHEN  ELM(J)  IS  UNDEFINED 


DIMENSION  ELMIl),  JSQ(t) 

L  =  1 

7  L  =  2  *  L 

IF {  L.LE.  NOES)  GO  to  7 
L  =  L  -  1 
10  L  =  L  /  2 

DO  20  K2  =  i»  NOFS 
K1  =  KZ 

IS  <3  =  K1  *■  L 

IF(  KT  .GT.  NOES)  GO  TO  30 

IF<  ELMOC1)  .LE.  FLMIK3)  )  GO  TO  20 

PT  =  ELMfKl) 

EL  M (K1  )  =  ELN (K3) 

ELMCK3)  =  RT 


RT  =  JSQ(Kl) 

JSO(Kl)  =  JSO<K3) 

JSQ (K3)  =  RT 
K1  -  K1  **  L 

IF {  <1  .GE.  1)  GO  TO  15 
20  CONTINUE 

30  IF  (  L  .GT.  1)  GO  TO  10 
RETURN 
END 


AN  ASCENDING  SEQUENCE 
II. E.  INFINITE) 


D-30 


o  o  ■»  -■>  a 


S'jnoOUTTNF  r,ETC  {XCX  ^LT  ,ULl  »CT  > 

COMMON)  /  CV1  t  p*n  apiijS 

rriMMOKi  /  CUT  /  H, W.MPF, °HIT, U7,U  .P,USMfE*0, 

OIMFMSIOM  OL  T(  CD  »tJL  T (  0 1 )  ,CT  < 0 D  .FXl ( 1 01  , FX?(101 


r f  <<cx> 


1.  .'it. 

2.  .LT. 
1.  .F0. 


o,  rvftLUATC  <0X(TH1  cm-SLO^. 

0,  CVALUSTE  CX(1)  TO  cxitfx),  <IFX 

0,  INVALID  <CX  ♦***  OFP. 


=  -KFX)  . 


2C 0346:0 
20C0461 u 
20004620 
20  0046*0 
20004640 
20  u  C4660 
20C34660 
20  QP467Q 
20  CO 46 P0 


IFIT^CN)  .  EO  •  1)  WPTTE(6,999) 

20  C  L  46Q0 

20  L  04  7L  G 

999 

FORMAT  (  H- ,  1  24  X*  *  MG  FTC  ) 

20004/10 

TF(KCX  .T.T.  N)  <~r'  TO  770 

2  0  C  C  4  7  2  j 

IF(KCX)?00, 770,  too 

20C0473C 

ID  1 

FXl(KCX)  =  0.1 

2CC0474C 

fx7(xcxi  =  o.o 

200047F0 

CALL  CFTPHI  (KCX,  nLT  ,FXlf  f)MY  > 

20  0  C  4  760 

CALL  C^TOMI (<CX,ULT,FX2,nMY» 

2C  004770 

MDX1  -  KCX 

20004790 

NI9X2  =  KCX 

20004790 

Gn  T9  220 

2Q0048C3 

coo 

TCX  =(-t)  *  <CX 

20004810 

IF (  ICX  , GT .  N )  nn  TO  770 

20004820 

no  21Q  I  =  1 , TO  X 

20004870 

FX 1 ( I )  s  C  .  C 

2CCU4840 

F  X  7 ( I )  =  0.0 

2CC1485C 

CT (I)  =  O.C 

2C00486C 

2to 

continue 

2C  CL  49  70 

CALI  GFTPHT (XOX.'H  T ,FXl,OMY) 

20 1  04  8  80 

CALL  GFT“HI (KCX,ULT,FX7,DHY> 

20C j48°J 

NOXt  =  1 

2JCC49C0 

M0X2  =  ICX 

20  L  C  49 10 

?2Cl 

OO  ?7C  J  =  MHXl.MPX? 

20004920 

0  T  f  =  ULT(J)  -  OLT(J) 

20004970 

IF  (DIC  . FQ.  .1)  GO  TO  726 

20 CJ 4940 

CT(J)  =  ( FX? ( J )  -  FXl(J)  )  /  OIF 

2C0049EG 

226 

CON'TtnUF 

20004960 

r,o  TO  777 

20044970 

770 

W9ITF  (G.77D  <r  X 

POomat  ( 1H1  y  1  3H  JMV#L  TO  <CX  =,T1»1CH  IN  C 

20004980 

771 

20  C  04QO0 

call  exit 

20005000 

r* 

20036,13 

777 

COMT  I NUJF 

2CC05020 

PAP 

9FTII9N 

2CCC5P7C 

c 

EMO 

200C6040 
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o  o  o  o  n 


C 


IF 


999 

100 

160 

193 

101 

102 

103 

104 

140 

200 


5u  3 


300 

301 

400 


SUBROUTINE  GETPHI  (KFX,  XPHI,  PHUSJUMRHI ) 

OIHENSION  XPHI (01) , PHI (01) 

COMMON  /  CV1  /  IP(12) ,RP(12> ,TMP(10) 

COMMON  /  CV2  /  T(100,10> ,00(100) ,BLO(10> ,ULO(10> ,CO(10) 
COMMON  /  CV3  /  M,N,NCF,PHIT,UZ,USP,USM,EKO,MPLUS 

( KFX)  l,  .GT.  0*  EVALUATE  KFX  (THL  F  LX)  •  .  - 

2.  .LT.  0,  EVALUATE  FX(1)  TO  FX(IFX),  CIFX  =  -KFX). 

3.  .EQ.  0,  INVALID  KFX  •***  UEP. 

IFtIP(6>  .EQ.  1)  WRITE (6  *  999) 

FOPMATC1H-, 124X,6HGET»HI) 

IF(KFX) 100,300, 500 
SUMPHl=PPfl2) 

1  =  1 

TFCI+KFX)  150,15c, 40*: 

IF ( I  .GT .4) GO  TO  140 

GO  TO  (101,102,107,104)  I  . 

IF(XPHI(I) .LT..0CC1)  GO  TO  140 
PHT(I)=  0.30  ♦  0.006*XPHI(I)**0.95 
GO  TO  200 

PHI(I)=  0.003A*XPHI(T)**0.9f. 

GO  TO  200 

PHI  (I)  =  0.006*XPHI(I)**0.90  ..  . . 

GO  TO  200 

pHI ( I ) =  0.015*XPHI(I)**0.909 
GO  TO  200 
°HI (I)  =  0.0 

SUMPHI  =  SUMPHT  ♦  PHI (I) 

IF(KFX.GT.O)  PETUPN 
T  =  1*1 
GO  TO  160 
SUMPHI  =  0.0 
I  =  KFX 
GO  TO  150 

WRITE (6,301)  . 

FORMAT (1H1,25HKFX  =  3  IN  GETPMI  ) 

CALL  EXIT 
RETURN 
END 


200-05050- 
200050*0 
20005070 
20005080 
20005090 
200051(0 
—200115110 
20005120 
200G5130 
20005140 
20005150 
20005160 
2Q0L51ZD 
20  C05180 
20C05190 
20005200 
20035210 
20005220 
.  — 20005230 
20005240 
20005250 
20005260 
20005270 
20005280 
_  20005290 
20505300 
20005310 
20005320 
20005330 
20G05340 

_  20005350 

20005360 
20005370 
20005380 
20  0053°0 
20005400 
2CC0541G 
20005420 
2000543C 
20005440 
20005450 
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.->  r>  o 


1 


S'JPRnUTINE  TMITA(NrF,MtM) 

this  EUPPHUTTW?  CORTES  THE  A  MATRIX  cROM  TA°E  TO  DISC 
AMO  STORRS  THR  po  AND  CO  ADRAYC  IN  COPE.  TAPR9  IS  ASSUMED 
to  RR  THR  T A°R  AMD  T APE3  IS  THF  DISC  RILE. 

COMMON  /  CV?  /  TdCOtlC)  |R^(ljt)  .RL'ntE*  ,ULO(ia)  ,00(10) 

COMMON  /POWTYO/  TpPWTP(ni) 

OTMPNSTON  A J ( IOC) 

RFWTMO  3 
c  »EMTM0  o 

">EAO  (o,ion)  ouMi.nuM? 

Ijj  FORMAT  <A4,10X.A4) 

READ (3,400)  ( T  po  wTO  f  J)  ,J  =  1,M) 

4uC  f opmut ( T12 ) 
no  tc  T  =1, N 

PRAO  (3,200)  (A J( J» , J=1»M) 

22  0  roRMAT  (R12.4) 

t  F  (  ROP  *  0)  1CC0.2: 

20  TR  (T.NE.N)  no  Tp  An 

no  j=i,m 

Tj  no(j)  =  Aj(j) 

4U  tp  (T.R.t.nor)  nr  to  <.c 

AJ{M)=CO(I) 
no  55  J=1»M 

55  T(J,T)=AJ(J) 

t>:  WPITF  (T>  (  AJ<  J)  ,  Jal.M) 

c  W°TTE (7.1)  ( AJ ( J) ,J=1,M) 

1  FORMAT (5R15,5) 

o  MPTTE<f>,2)  (  AJ  (J)  » J- 1»M) 

2  FOBMAT(ix,5Rl5.R) 

III  r  on  T  thuE 

T  RO  WT° { M) s  3 
7N0  RTLE  3 
octijpN 

IEOH  Wpttf  (6,300)  T 

jj  FORMAT  (*  ORFMATMPF  EOF  ON  A  MAT  ’’IY  T  A°F  AT  COLUMN  *,I5> 

STOdi3  3  0? 
itmo 


20CC54E 0 
20LC547C 
20005403 
2CCCS4O0 
2QC055C; 
2CC0551C 
20005520 
?Ci;0553G 
20005543 

200CS57C 

20005530 
20  r  osep j 

20:l,56C0 
2QCG561 0 
2L  DC  5620 
20  0 15630 
2JG0564L 
20C056p0 
?0  0  05669 
2o:iU567i; 
2G3056R3 
20  GC  5600 
20005700 
2t  Ul  5713 
20C0572C 
20CC5730 
20005740 
?r.  JC5753 
2P2C5762 
20005770 
20005700 
20  C  05  70.3 
20305061 
20CC5510 
20005020 
20305433 
20045R43 
20:C5853 
2  3  C  0  5  4  6  C 


D-33 


SUBROUTINE  NXBRN  CXT • SIGMAJ  ,  NXB)  . .  . . . . 

CONMON  /  CV1  /  IP  (12)  »RP(12)  , TMP (10) 

COMMON  /  CV3  /  H,N,NCF,PHIT,UZ,USP,USM,EKO,MPLUS  .  . 
DIMENSION  XT (001) » BLT (10) , CT (10 ) ,  YT ( 1 0 ) , SIGMAT ( 1 00 ,4) 
DIMENSION  FX1( 10) ,FX2(10) »OIF(l ,),NDX (1 ’) 

CONTINUF 

IF (TP(6)  .EO.  1)  WPITE<6,999> 


DIMENSION 

10 

CONTINUF 

IFCTPC6) 

999 

FORMAT (1H 

NXB  =  0 

NXBRN  GIVES  BEST  BRNCH-CANDIOATR  FDR  XT(T) 

00  5  J  =  1,NCF 
FX2(J) =0.0 

FX1(J)  =0.0  ..  .  . 

OIF (J) =  0.0 
NOX ( J) =  0 

BL  T ( J) =  SIGNAT ( J,2) 

CT  (J)  =  SIGMAT(J,4) 

5  CONTINUE 

00  20  J  =  l.NCF 

YT (J)  =  XT ( J )  -  ®LT(J) 

20  CONTINUE 

NFX  =(-l)  *  NCF 

CALL  GETPHKNFX,  XT,FX2,0MY) 

CALL  GETPHT (NFX,9LT,FX1,0MY) 

40  CONTINUE 

IF  (RP(4).NE.O) 

•WRITE  (6,55) 

55  FO®MAT(lH0,10X, ’DIFFERENCE  =  *  ,  1CX , *PHI { X ) 

*  -  (’»8X»4HC(X) ,4X,1H’,12X»1HX,6X,1H) ) 

DO  30  J  =  1 , NCF 

OIF  ( J)  =  FX2 ( J )  -  FXl(J)  -  CT ( J ) ’YT( J ) 

TF  (R® (4) . NE . 0) 

*  PRINT  50, J,OTF(J) ,FX2(J) ,FX1(J) ,CT(J) ,YT( J) 
50  FORMAT (1H 0,15, 6F 20.6) 

NOX(J)  =  J 
30  CONTINUE 

CALL  GETASQ(NCF,DIF,NOX) 

NXB  =  NOX (NCF) 

RETURN 

000  CONTINUE 
END 


®HI (LOWE® 


.  20.005070 

20  005880 
20005090 
20005900 
20CC5913 
20CC5920 

_ 200.05910. 

20005940 

20C05953 

23005960 

20005970 

20005980 

_  20005990 

20006000 
20006010 
20006020 
20006030 
20006040 
20006050 
20006060 
20006070 
20C06080 
2C  006090 
2CC06100 
.  -  20006110 
20G06120 
20C06130 
BOUND) 2CC06140 
20006150 
20006160 

. 20006170 

20006180 
20006193 
20006200 
20006210 
20006220 
.  .  ...  21016230 
20006240 
20006250 
20006260 
20006270 


o  o  o  n  o  n  o  -t  r>  .■>  r>  o  o  a  „->  o  o  o  o  r>  o 


C 

r 


t  1 


S'_n°ri!)TTNF  °A®i  ME 


LASFllEO  0 O MH 0 M 
common  /  CV1  / 

CTMmom  /  (X\/7  / 

Summon  /  pvt  / 

rn^MOM  /  CV4  / 

pommon  /  pys  / 
pommhm  /  P  V7  / 
POmhom  /  CV*'  / 
common  /  nv<5  / 


T°(12>  ,'5°(1'»>  ,TMO  (1C) 

T(irCtlO)»nn(ijy)  ,qLO(f. )  lULO(ii)  ,cn(i<]> 
M.K.MrF.OHIT.o^.ij^P.iJSM.FKOt^DLU4; 
Tv(iic),x(iiC),rx^(iic),x»(iic) .xroNtio) .cost 

CTrMAM|)n,(l)  ,TSIr,,IFTL 
NPHASr,NFi  ,CFX,  TOPT,MPP,N',10S,NFHX7 
MXPK,XK,MnRnL,EXm  (?9> 

P^Tr.L  (29)  ,  NX91.  (29)  , XNXRL  (  29 )  ,  f)L  1ST  (25,131) 


c,Eftn(r.,io)  ( i°( i >  = 

13  FT3«aT(i2i6) 

5>rwTNT  p 

pcan(p,ii)  i^d),  i°(?) 

ppopaT ( ?r  6) 

IF{  EOF,  5)  77777,  15 

10  CONTINUE 


T°1=M,  TPPrMOPa,  TPTzMpE,  T°4=MM1X,  JOErNMAX,  IP6  =  L°IN,  IP7-=L°0UT 

i^fl^roru,  Tpq  =  To*ax,  tpiu=jomax,  To:i=rcK,  rPi2=MXNno 


N  -  TOTAL  MO,  OF  VA^TAQI  FE 
NOCA  -  MO,  of  anus  T*<  A-MAT°IX 
MO  F  -  NA.  OF  WAP  I A  PL  rS  N  /PONE  A  VL'-F  (  X  ) 

MM  A  *  -  max.  MO.  OF  pnMSTPATMTS  TOO  jp|  o 
MMAX  -  MAX.  MO.  OF  waPTAtH.ES  EOP  JPI  P 
ldjm  -  jf  (1)  W  p  T  T  F  L°  T  NP(JT  fop  £AOH  °P0 nL £M 
LPpijT  -  TF  (1  j  w°T  Tr  L°  nijT°'JT  F0»  r  APh  PPO«L  EM 
IOTU  -  TF  (l)  OOMSTPATM  COST-F(X)  ,lT.  U& 

TS M A  X  -  MAX  NO.  OF  POWS  TM  PLIET 
JRMAX  -  MAX  MO.  nF  epLUMNS  IM  «L  Ic  T 
TCK  -  TF  (1)  SET  OPIMT  .  T°UE,  IN  JDLP 

MX  N0°  -  MAX.  NO.  OF  IP  “POPS.  *n\_\JEn  OEFOPF  0  ALL  I MO  EXIT 

ocA0(9,20> (PP(I) ,T=i ,  5) 

7Q  FnPMA  T  (  <SF17.n> 

°°1  =  E°ST,  poj  =  T  mm  A  X ,  °pt=thETA,  PPi,-TPACE 
EPSI  -  AOJIJSTMENT  FAETOP  Fno  UO 
TMMAX  -  MAX.  PP-EXOT  TTMF  XN  SECONOS 
c  THETA  -  X ( T )  7  F  P  0  PNOOFF 

0  T ° AE E  -  T F  { 1)  T p A C E  fpi'ITTOM,  USTMG  LPTN,  LPOUT,  AMP  TOK  POO£E 
n  I F  (  C)  SKIP  ILL  T  MT  EpMEn I  AT  f  point  PUT 

c 

TMMAX  =  PP(?> 

PAUL  SFT(TMMftX) 

C 

0  3  LL  OPFSFT 
C 

WPITF(f,,30>  ( T°  {  T  )  ,1  =  1,1?? 

3 o  fodmAT  (H1,7CHI*'tfgfp  oapamftFPf  r,i?T9) 

W°T  TE (6,40)  (pp (T) , T=l,9) 

UO  FPPMAT (1H-, 17HPFAL  PA°aMFTF°S  =  ,5riR,M 

M  =  T  °  ( 1 ) 

NOP.*  =  T®(7) 


200092*0 
20Ce62°3 
20CC63CQ 
261.(9313 
23009323 
20CG973C 
20C:63<*C 
?C . j9393 
2CL 09390 
20009  .70 
20CC93PC 

20CC6:»O3 

2 .)  l  J  6  4  -  3 
20C06410 
20  £06420 
?P0P94‘»f) 
20CC9440 
2C0C9453 
200C646C 
20  009470 
2C :064BJ 
2  j  C  0  94^3 
20009900 
20C06910 
20  0 1  9 5 2 0 
20  C  Q  99  70 
20C09540 
20069950 
20009990 
20.:  J957C 
20  3095P0 
2CC09c;QC 
70  0C990  3 
2C036910 
2C  0  36920 
20009930 
20009940 
20009990 
20 C 0969 0 
20069970 
20009990 
2nEC99°C 
zoooeTco 

2G0C6710 
20006720 
20009730 
20C09740 
2GCC6790 
2CC09790 
20009770 
2DCC97P: 
200097QC 
20LC6PCO 
20  0098 1 0 
2C6E9823 
2CCC9830 
2GC0984C 
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•  •  *  -  .  . 

NCF  =  TPC1) 

M=NCF  4-  NOR*  __ _ 

c 

IRMUX  =  I®<9> 

c 

65  RFao<9,?0><  ULP(J),  J  =  1,NCF)  . ; _ 

DO  60  J=1,NCF 

IF<l)Ln(J)  .LT.O)  ULO(J)  =  -  ULO(J)  _ _ 

60  CONTINUF 

C  9Fan(6,20)  <9L0(J» , J=1*NCF> 

on  61  J=1,NCF 

c  ....  ... 

61  RLO(J)  =  0.0 

WRTTE(6,90)  ...  .  _  _ _ 

qO  FOPM4T (  26H  X(J)  LDWER-UPPFR  BOUNDS  ) 

00  100  J  =  1,NCF 
WRITE<6,95> JtPLn< J) ,ULO(J) 

95  FnPMftT (1H0,2X, 13 , 3X  ,  ZE12 . 4) 

100  C9NTTNUE 

NnRfiL  =  0  _ _ _ 

7 77  RETURN 
77777  CONTINUE 

STOP  00001 
ENO 


20006853 

200C686Q 

20006870 

20006880 

20006890 

20006900 

20006910 

20006920 

20006930 


. 2000695Q 

20006960 
20006970 
20006980 
200P6990 
20007000 
20007010 
.  20007  020. 
20007030 
20C07040 
20007050 
20007060 


l 
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L  A  1E.L  LF>''  roMMOM 

n^nn  /  r.\J  1  /  1^(12)  ,oo(  1  ^ >  ,THT  (1  ) 

/  cv?  /  T<* : r, le » ,^o< i a: >  i  .)  ,'JLnt i j> ,cnu j) 

''IMMO'i  /  ry*  /  M,M,Mf'F,OHIT,U7,U^P,U^^.F<n,MPL'J^ 

tommok,  f  /  iv(iir,),Y(iiG1  .IV-tun)  ,y'(UD>  ,yPOM(io»  ,rosT 

rry*»*riM  /  Q\/q  /  <;TfMj  (  n  1 , 4  )  ,  T  1 T  G 

''-1-4MONJ  /  ~V7  /  wohi«;f,*jfi  ,';K<,T0r,T,Mr>3,*|(n5,MFwx7 

ri-)MMOs|  /  GV3  f  fiY"*  ,  VK,M090L  »F*  PI  <?e) 

r^^MON  /  rv3  /  OFTCL  <  2G)  ,  NXPL  <?G  )  .KN^Pl.  <  .’5  >  ,PLTST  ,ri) 

TF(T"MM  ,r0,  n  WPTTF 
ivj  cnj-M^TdH-,  l**4y,^HP->FSET) 

'J=T3(  1) 

►ir»o  n  =  jo  ( •>  j 
MrctP(?) 
rP“flx  =  t3!0) 

JPMI5X  =  T3(1C) 


T"  17 

"n(j)  =  c .C 

pi.  0 1  i )  =  0 .  r 

JL^f  j)  =  o .  C 

1  ?  rONT  T  Mt|r 

rn  lc  I  =  l, MO  O' 
TP  14  <  =  1,4 
14  ST'*, “A  (  T,K  )~1.2 

=nf  7J  =  f  .0 

d  i'OHTTNIUF 

MFJ  Y7=  : 

DH  T  T  =  C 
'(7  r  1.-+7S 
us°  =  i.r*-7s 
’ISM  =  l.Ff3G 
'IHSTr  j  .C 
Tsrr.sr.r 

'IF  1  r  Q 

gf*=:.o 

THOT-G 
*T1P=3 
m  y  p  <  -  a 
x<  =1.3 
MOnnL  =  ri 

~)  P  ->0  T  :1,  T  PM  AY 
r  <°L  <  T )  =  o.l 
°S  TGL ( T ) =  0.: 

‘P nL  (  T  >  =  3 
YMYnL  ( T ) =  n . o 
Tn  ?:  J  =  l  »  .)  °  ^A  X 
3tTFT(t,J)  =  0.'. 

■>  ■  '•o  MT  T  Ir 


2DCL7C70 

2GoC7u»*t 

?-•  •  c  7 :  o: 

?  Oj  u  7 1 r; 

?i  cc7ii; 

2ict7i2c 

'>n0C717Q 

2  o  f .  a  7 1  : 
203Q71SC 
2CCG7l*0 
?cra7i7o 
C  l7l“o 
2  o  •*  c 7 1  ° : 
2CUC72CC 
?nrCi7»n 

?d-.t7??j 
2r°t  7  2  7,; 
?0£C7?4; 
?PPp7'>40 

?'.:c7?^: 

2PPG726C 

?pr.p77o<] 

2d”.,.'7'?  ,i. 
2 1 0  i  7  7 1  <j 

?ou  77?: 
2C’:l77?c 
?n  .  o774  : 

23lC!77«'.j 

2nG07  3ftil 

2CCC7.77; 

?nrp7-5ar) 

21o J730J 
?  3  p  0  7  4  r  G 
2CCG7413 
70G074?C 
2 3 3 o 74 7 J 
2wCL7440 
2G  C  C 74  PC 

?r£C74Gn 

2 3  r  j  7  4  7 : 
2U  £74<IC 
2C  f  G  74°Q 
2n007snr 
2;  ’C7S13 

23  jo  742 r 

2  u  G  C  757C 

?firo7440 
23:3744: 
?:  ,c 7sfu 
2CCG7F.7C 
pono7s«o 

7  G  r  (  7  s  o  j 

2o3f  7EC0 
22  C  C  761 £ 
70  00  7f>?0 
2 .1  2  C  7*»  70 


5-37 


9ETUPN 

END 


20007640 

20-007650- 


cijoooijT  I*jP  OFMTM 

?&vC  7f.*r 

nMMHM  / 

1  ,or><  IP)  ,  TMD  (  J  , 

23CC767C 

1U!\  Shpr?  /  5mpmh 

/ 

2P(,C7f,flf 

>rWT‘‘H  ^ 

pc  con?n 

on  (  ■?  | 

IF  (M^.CQ.c  )  '0  T **  i'l 

3fi":?rc: 

'in  f.  T;  Jj  ‘lA 

pcccpnc 

•jra^  (S,10C)  (TK'MJ) 

, J=l, •*) 

pcccpppc 

W’TTr(7,«0n)  (TMOfj) 

.  J=  1 ,  *  I 

?•,.:?»  / 7  j 

w’r>OM«T  (  ^  ft  1  D  > 

?  G  u  i  ??(,, 

'  nMTTMMF 

2CCC77GC 

VI  TCI  7  f  i  c  u  CNPC!> 

n*“T  ijr*M 


j  7  7  7l 


n  o  o 


SUBROUTINE  SET(TMMAX» 

COMMON/ TMX/T MO  ,EXT 

SECONO  GIVER  JOB  CPU  EXECUTION  TIME  IN 

CALL  SECOND ( THO) 

EXT  =  TMMAX  ♦  TMf> 

PE  TURN 
ENO 


...... _ 2QM7790. 

200078GG 

20007810 

1/10.0  OF  A  SECONO  20007820 

20007830 

20007840 

_  _ 2  Qi>  07850 

20007860 

20007870 


D-UO 


"iJfnniJTTM"  T  A°P1IT  (T^T) 
c  La'»^LLrn 

~T4MnM  /  cvi  /  I°(l?),l>Bfi:),T“'1a.) 

rry«MnM  /OV?  /  T  ( 1  £  C  .  1  0  >  ,  90  ( 1  3  i  )  .9'  o  ( i 1  )  ,UL  0  ( 1 0 »  ,Cn  (  u  ) 

"Imhom  /  ~v?  /  M,HtNf'F,'»HlT,'J7,U''Pf'JSM,r^O,MOLUS 

roHMn»)  /  cvu  /  I  *  <  1 1  >  ,y  ( 115 >  ,T*7  (i  u  )  ,y  ■*(  1 1: ) .  *con<  m  ,coft 

o<-)4MOM  7  rvi  /  cTr,Mfl  f  133 , 4)  ,  T<;  f 

/  "V7  /  sr  ,MP1  ,^FX,  TO'^T.Mno  ,MOOf:,NFMV7 

/  7V9  /  NYT/ f  v«,  MnoOL  ,  FK^L  C?c) 

/  fVa  /  P^Tf.L  (25)  ,Ny«L  (25)  ,y‘)X9L  (  °5  )  ."LTST  (25,  171) 

TFCno  ,  3  T  ,  1)  00  TO  9Q 

oo  to  ter 

qn  ''OMTJMijr 

TP(D,1(U  .70.  G.  )  00  TO  777 

i , :  oimttmut 

TTE  ( 6,IC1 ) 

i;i  F0OHS  T  (  HI ,  T  PMTf  POUT  -  r,FMF°aL  -  T  *'F  n  pm  ST  TOM) 

IP  <T°T.MF.3>  CALL  TTMFO 
W°TT£  (  6 ,1 Q  5  )  >)7  ,I|po 

1 L  5  C0OMA  T  (  t^Ct  f|MU7rl'P:  ,  lQFt  0 .7  ,<)T  f  HI)£D  =,1PE19.7> 

If  (‘iT4y7.F0.1) 

*  M  P  T  T  r  tf,,S7G)  (IV7(J)  ,<7(T)  , 1  =  1 ,  iPLUS) 

57.  pqDMIT  (  7H  Q  X  7  CO  n  77  (7y,6(7W  0  ">l  ,T4,2H  =,F17.4))) 

TP  (Tot.cq.7)  r,r  T  n  7  7  7 
M~W<7  =  r 

w^ttc (6,i:o) 

l :  o  pooMaT  (  ho  ,  1 0HPTr.«ft  (T,.j)  ,  i3y,5H  ’hf-®,  i?  / ,  fhlw-ono  ,  12X, 6HU°-pmp, 
11 IX ,7HP-7L0OF) 


0°  115  T=1,mcf 

-lDTTE  (6,113)  I,  (PTC.ha  (T  ,  J)  ,  J=1  ,4) 

tit  c  npi“*a  t  (  ih  ,  5  y ,  I  ? ,  ’  y ,  i.r  t 9 , 6 ) 
tit  oomtjmijp 

y°TTf  (6,117)  TS  TP- 
11  7  C0OMHT (1H0, 6PP <K>  =,F19.6) 

TP  (  1-0  T.  me.  1)00  TO  145 

T  F  (  moOOL  ,L  E.  3  )  r,o  TO  145 
IT  -  mopol 
TO  131  T  =  1 , T  T 

T  TP (6,121)  I , P5  T  PL  ( T ) ,  N  X  9L  ( I )  , t*JX9L ( M  ,E<OL  (T ) 

1?1  cr1oMHT  (1-1-,  6HM0OP  I4,6y,6W0nST  =  ,F  2  C  . 6X  ,  9HNV-PPN  r,T4,6y, 
1  7HX-0PN  =,F20.6,Ty,6HP(K)  =,F?C.6> 

131  oof'T  T MiJE 
145  OOMTTN'JE 
7 77  OPTUPM 
cMn 


2G  GG79PG 
?J  j!376c'l 
20C079CC 
2GGC791C 
2CoL792C 

20^L7qT- 

2CC0794G 
2CU  79*0 
?c:c79f.-, 
2SCG7P70 

2  C  £  u  7  9  4  C 
20  CG7QPC 
2QOC90CO 
2 :  r  G 9 ;  i . 
2CC'L9G2u 
2CGP9C"7C 
2CCC9C4C 
?oro3L5c 
2ilC9G6P 
200C907J 
2GCG9C9C 
20009000 
2  3  C  C  9  1  l  0 
2GCQ911. 
2Ctu912C 
70  OP  91  7n 
23:.u914j 
2G0C  9153 
2000915 C 
20009170 
2  KG  9 1  P  0 
20GC91OC 
2  C  C  C  9  2  (  C 
20C.C  921  0 
23  r  C  9220 
2d  0  9 ? 7 C 
2CCC9240 
2C  CC  9?rC 
20009260 
2o:c  9?7o 
2GCC92°0 
20  G  0  9  ?°C 
20P093C0 
2  0  c  C  9  3 1  ; 
23C J2C 
2000937C 
2000934P 
2  0  C  G  9  3  p  G 
2  3  u  C  9  3  f  3 
2  0  0  0  9  3  70 
20C093°0 


-TOO 


SUBROUTINE  TIMEC  .  ...... 

COMMON  /  CVT  7  M,n,NCF,ohIT,UZ,UFP,USM,E<0,MPLUS 
COMMON  7  CV4  7  IX«110), X<110>, 1X7(110) ,XZ(110)»XCON(1Q) , COST 
COMMON  7  CV7  /  NPHaSF.NFl  ,CFX,  TOr’T,NOP  ,NO»C,NEMXZ 
COMMON  /TSW7  NSWW 
COMMON 7TMX7T MO ,FXT, TITLE (4) 

SECOND  GIVES  JOD  CPU  EXECUTION  TIME  IN  1/100  OF  A  SECOND 

CALL  SECOND ( SEC^ ) 

XX=  SFCS  -  T MO 
WRI TE ( 6 ,666)  XX 

666  FORMAT (12H0FXCT-TTMF  =,Fq.3,8H  SECONDS) 

IF (SECS  .LT.  EXT)  GO  TO  10C 
WRITE (6,667) 

667  FORMAT (37H  TIME  UP. ..CYCLING  TO  NEXT  PROBLEM) 

MNC- (-1 )  *NCF 

4446  WRITE (8,4443) (TITLF(T) ,1=1,4) 

4448  FORMAT (4A10) 

WRITE! A, 4447) (IX7(T) ,XZ(T) , I=1,M°LUS) 

4447  FORMAT  ( I4*,  4X  *F12.<.) 

WPTTE(fl, 4447) MNC, H7 
NEWX7=1 

CALL  TARO'JT  (3) 

CALL  ODCAV2 
100  RETURN 
END 


_ 2QX0839£L 

20  C  09400 
20008410 
20008420 
20008430 
20008440 

_ 200.08450. 

2G  008460 
20008470 
20008480 
20008490 
2C0C8510 

_ 2  0  OX  8510 

20008520 
20008530 
20  CO  8540 
20008550 
20008560 

_ _ 2X008570 

20008580 

20008590 

20008600 

20008610 

20C08620 

.  2X00.8630 

20008640 

20008650 


r>  o  r>  o  o  o  o  o 


SU^OO'JT  TW  lp  ( HPnws ,  wrr*LS  ,  MCMGS  ) 

COMMON  /  CV1  /  1°  d.?>  ,P°(  12)  .TM°  (ID 

(-;  OMMPN  /  CV?  /  T(1  0*  13)  »Pnt  tG  :)  .910(1-)  ,UHS(1  J)  ,cn<io 
common  /  ov4  /  iv(iu>,xdio>,Txdiin  ,XM  tin),  xroNtiai, ROST 
COMMON  /  CV7  /  nowASF, NFi, spy, IO°T, NOD, N"PStMEWX7 

C _ -TT  OHS  TO  TN^UTM+l 

rilMOM  /°HS7  PHS(i:0) 

c _ srx  AJ(AS  MUCH  ss  POSSIBLE)  OVEP  I\JPUTM  +  1**2  FOP  POPE  columns 

common  /009F/  J flPP J ( 1  Cl ) » Jft ( LO 1 >  » JAK ( 1 £ 1 ) t ®U *  1 1 0 C Q * 

rriMMON  /ft/  AL»HM1CJ>  /9/  OETftd  1)  /C/  GftMMA(lOI)  /0/  CELTftdOl) 

common  /ojs/  n J  ( i  ' ) 

C _ 5FT  foowTP  ( I  NPitTM*l)  NftHE  (  TUPUTM*- X  NPUTM-f  1 ) 

common  /oiHTyo/  TPPWTPdCl)  ,/NftMrS/  N4ME(ftOQ> 

OOmmom  /!/  m  ,  l  »  M°L  ,MC  ,NT  ,  ICOST  ,  I1' ,  T°Hft  SE  ,  J°US  ,  I°T 

r pm  MON  /LT  MS /  MAXTDY,NTDY , JMCOPE . NCPM A  X , NS C ft N 

COMMON  /STATE/  JPO<?,  TPOW,  JOOL  ,  JO'JT,  TTPM ,  MPE  JtNPTF  ,  NOJS 

rOMMON  /FTLFS/  T61,Tfl2tTMfto 

Common  /TN°UT/TNPI'T,  TNPIJTM ,  TM°UTN 

rriMMPN  /POUNOS/  POUM0Sd3  0  )  »  TOOS  <10  1 )  «  npos 

Common  /papams/  T«n< , ITNINV, TNVF  ,Ki ,K2 .<7, <4,K5 

COMMON/TXX/TXXnr.C)  /xx/  XXdOC> 

rt _ THE  p  opis  IN  TS  MOVEn  TOWN  THE  ft  )  S°ACF  --IGNOPE  STZE 

PFftL  0(130 

EOUT VALENCE  <ftJ,0) 

C  . 

call  mssgj uchl°/l owe/ e-guo  cy^lt  ' 

c . F  IL  r  OEFINTTTOMS 

T  Al=l 
T  A2=? 

T  NPUT  =  X 
J  M A  P"7 

OEWTNO  TN^UT 

CftLL  FTNOTNd  ,1  ,TB  1) 

CALL  FTNPINd  ,1  ,Tfl?) 

r _ SET  l ENGTH  OF  ftj  rnACF  IN  NWAJ 

NMAJdlO"n 


ICost  =  inputm  =  mpok<:- 
jph$  =  I  N°UTN= WOOL'S 
MOnS=NCHGS 
on  ic  T=1,NOOS 
T  nns  < i ) = i 

io  oouwos ( I >=u«s d  ) 

. “ ftOOHT  AFT  FP  TMAY,  OUTT  ft  F  TFP  K9  CYOLES 

TMAY=20C. 

ys  =  ">CO 

_ XCHFOK  9*-"TWrFN  CYCLES  N200  to  MNmAt  INCorM,"NTS  K? 

<2  =  1 
<u=icn 
<4=  c 


2CCCft6ft 

20008G70 

20  L  L  868G 

?COCftG°0 

2CC07CC 

20008710 

2  0  CO  ft 720 

2  C  C  C  ft  7  3  0 

2CL0ft74L 

20008750 

2CCCft7F0 

?0LCft770 

2 OLuft/ftO 

2000ft790 

2uG0ftftCC 

2nCCftfli: 

?0Gtft82G 

2000ftftT0 

2  D  G  t  8  B  4  j 

EOCCftft^O 

20  LOftftGU 

20008ft70 

20C:ftftPu 

2GCCft8O0 

2CLG89CG 

?nooftoio 

20  0  0  ft92  0 

2000ft93C 

2000*940 

20  CC  *9^0 

20008900 

2000*970 

201089*0 

?0C0ft9°0 

20003000 

2  C  C  C  °0 1 C 

2UC9G20 

20C0903C 

200C904C 

2  £  G  C  9  C  9  j 

20b09bG0 

20009070 

20009C8C 

70009uQ0 

20  0  0  91  ;ci 

20CCP11C 

2GC09120 

20009130 

20039142 

20L0P15C 

2CCC91FC 

20009170 

20:391P3 

20  0091°0 

20C0Q2C0 

20009210 

20109220 


D-L3 


0  0  0  0  0  0  0  0^0  o  o  o 


no 

999 

c  — 

r, - 


250 


3GC 

<*jr. 


5G9 


501 

c — 


60G 


<4=1 

PP I  NT  OnMTPPL  K3 
<■»  =  0 

<3=5*7*11*13 
TC(T°(8)  .NE.l)  K3=K3/5 
TF(I°(7>.F3.C>  K*=l7*7 

IF(^°(4)  .cT.f.O)  *9  =  1 


ppogpam  yrpqs 
CALL  SETUP 
wPTTr(5,qqq)  ippwtp 
C0PM5T(*  TJMP  1ppwTd*/(1X,5CT1)  ) 

M  IS  MOW  ACTUAL  M0M-GU9  POWS,  L  IS  NO 

mol=m+L 


20  009230 
20009340 
23009250 
20  C  09250 
20009270 
200092*0 
20 : 09?P0 
20CC93C0 
20009310 
20CC9320 
20009390 
20  uD934G 
20CC93C0 
20C09350 
20009370 
20GC9360 
200C99OC 
20  009400 
2D  C  09410 
20  C09420 
2CC0943G 
2GGC944C 
20CC9450 

OF  GUR  POWS  NW  A  J  19  AJ  EPAC?0C09460 

20  009473 


0°TTMI7C  G9PF  GOLUmn  STOWAGE 

ro°G=MWAJ-M*M 

MGPMAX  =  HIMu(  9* f  inPG/M) -  3 
GALL  M  A  o IN ( ° ( TOPG )  ) 


F9PMAT  (  //* 

Lp  P pn P L E M  0ATA 

pnp 

this  pun  * 

/* 

NON-GUP  POWS 

* 

16 

f 

/* 

GijP-onwS 

♦ 

T6 

+ 

/ 

■f 

/* 

L  n  G  T  C  A  L  5 

¥ 

16 

•f 

/* 

TOTAL  gdL'JNNS 

¥ 

16 

♦ 

/* 

MAX  IN  COPE 

¥ 

16 

♦* 

/* 

IMVfpt  fpfou. 

¥ 

16 

¥ 

CTCLES* 

♦ 

/* 

max  PUN  TTME 

¥ 

F  6 

¥ 

scC0Nns* 

4- 

/* 

max  CTCLE5 

¥ 

16 

¥ 

ITERATIONS* 

♦  ////) 


2CC094«0 
20CC94°0 
20009r>cn 
2CCG9510 
20  C  0  9520 
2C  0095  30 
20009540 
2C0C955G 
20009^60 
20009'  70 
20009560 
20009500 
20009^00 
2000961 0 
2CC09620 


W9 1  TF  (6 ,25  0)  M,  L,mG,nT,MCPMAX,  IN'/F,TMAX,  <5 
Ic  (I9PG.5E. 7*M)  GOTO  303 

GALL  Eoon’  (4GMLP--TNSUFFTGIENT  '"PACE  STATED  TN  NWAJ  ) 

GALL  ESCAOE(o ( IOPG) ) 

GALL  INVrDT (9 CTOog) ) 

CALL  OPIMAL  (P  (IOPG.)  ) 

I TN  TMV  =  0 

CALL  TNVFPTin (TOPG) ) 

JOT  =TOPG*I °T- 1 
09  500  J=1,nt 
CALL  IN(.I,AJ,3> 
n j(ji=dot(m,p(tpt) ,aj> 
jpt-tot-T9PG+1 

W° ITT (6,501)  (J,CJ(J»  ,NAMF(J)  ,J=1  ,NT> 

F  pPMST ( *33 J  V  At  UfE  FOP  FINAL  SOLUTION  COLUMNS* / < T 1 0 , El  2 . 4  ,  T 1 0 ) > 

E  NO  PHASE  2,  no  UNROUNOFO  0»  NO  rEASI9LF  SOLUTION 

GONTTNU'- 


23GJ96‘l3 
20039640 
200C965G 
2CCC9660 
200096TP 
20009660 
20C09690 
23009700 
20009710 
23  00Q7?3 
20309770 
20009740 
200097FQ 
?C  JC976C 
2CCC9770 
20009780 
20009700 


GALL  H  A  p°U  T ( n  ( I  0°  G ) ) 


?0u098L0 


D-U 


fi  y  a  p  =  t  m°i  jT  *»•»•  mc  h  G51 

m  =>co  m,9va» 

I  x  ( i )  =  r  kx(  i ) 

9-J  J  x ( I ) =xx  (T) 

r'T^T  =  -TFta 

°"TU=N 

FMT 


2CC3931U 

2CC09320 

?c  ;c9*:*3 

20009341) 

2CCC9350 

200C9360 

?OOC937j 


J 


FUNCTION  BOUNQCJ)  .  .  . . . _ _ _ 

COMMON  /BOUNDS/  BOUNTSt 100 ) » IBDS ( 100) , NBDS 
COMMON  /I/  N,L,Mt>L,MO,NT,ICOST,IC,I«»HASE,JRHS,IPI 
COMMON  /NAMES /  NAMEC100) 

C - PICKS  UP  BOUNO  FROM  OftCKEO  LIST, EITHER  FINITE  OR  1Q**35 

BOUND=1.E70 

IF(J.GT.NT)  RETURN  ...  .  _  _ _ 

IB  =  NAME(J) /10000P 
IF  (  TB.LE.  0  »OR IB  .GT  •  NBDS)  RETURN 
BOUND  =  BOUNDS (IB) 

RETURN 

END 


_ 2HjQH9flaa 

20009890 

. .  20  Q099CQ. 

20009910 

_  20009920 

20009930 

_ 20009940 

20009950 

.20009960 

20009970 

20009900 

20009990 


D-46 


o  o 


SUBROUTINE  COLUMN  <  JCOL  »  0) 
-GII5  VERSION  APRIL  2C-71 


C BMMON 
C  BMMPN 
COMMON 
COMMON 
c  OMMON 

common 

common 

COMMON 
C  OMMON 
L  0  0  x  r  4  L 


/MOVTS/  TwET4,0N0J,nM4X,°PMLFR,0UflLER 
/ST  4T r /  JOOS, TROW, JKOL , JOUT , TTRM , N?F J , Np TF ,NQJS 

/TOL^/  QJTPL,7ERO,PIVTOL»OTOL,PE0TOL,DFRTOL 

/T/  M,L,MpL,MC,NT,  TC0CT,T'',IPH4SE,JRHS,IPT 
/LI  MS/  MAX TRY ,NTRY, JNCOPE , NCPM A  X , NS C AN 
/A/  AL°MA(10i)  /B/  BETA ( 1  i)  /C/  GAMMA(lOl) 
/CORE/  JAPFJ(lOi)  ,  JA (1)1)  ,JAK(1 31) , 4J (1300 
/name*:/  namF(IOO) 

/OJS  /  OJ(ifC) 

BASIC, ATpmq, NULL, KEY 


peal  0(1) 

<*Y (T) =MO0 (NAME (T) ,  10) .EQ.4 
t|0<T  ( J)  =MOO(N4MF(J)  ,IC0C0Q)/10 


/n /  OELTA(lQl) 


CHECKS  COLS  IN  COPF,  TF  NONE  GETS  SOME,  IF  SOME  FINOS  BEST 
mTPY  =  14-NTR  Y 
M4  XTPY  =  NCRM4  X 

I F  (  MTPY.r.T.  MftXTPY)  GOTO  1 
I F (  JNCORF.NE.O)  GOTO  5 

C _ CHECK  F 0°  MOPE  COLUMNS  ON  DISC 

1  ''AIL  OTSCO) 

NT°Y  =  0 
NOJST=NOJS 

T F (  JNCOPF.EO.O)  GOTO  ICO 

c 

(; . nr-nnir:c  V^TTOR*-  TN  CORF 

5  JO»G  =  1 

C _ MO  doxcTm:,  TF  P£jFrTS  OP  JUST  PRTCED  OIS^ 

IF(npfj.NF.O  .OP,  NTRY.EQ.C)  GOTO  50 

C - PPICC  OUT  COLUMN 

DO  u:  J=  l.JNCOPF 

P J( J)=OOT(M,P (TPT) ,AJ (JOPG) ) 

40  JORG  =  JOPG+m 

C 

C _ NOW  FIND  BEST  COLUMN  TN  COpE,  NOM-BASIC  OR  pOUNOEO 

6Q  DMA  X  =  J 

NOJS=C 
jo<ro=C 
°  TKrv=  0 , 

no  EG  J=1,JNC0PP 

TF( JAPP J(J) .FO.l)  GOTO  60 

JPOS  =  J  A ( J ) 

jTYpf  =  moo(NAMF(  jor>S)  ,10) 

TF  (  JT  YPP.FO.  2)  GP™  50 
TF< JTYPF.EQ.4)  Goto  60 
TF< JTYOF.F0. 0)  GOTO  6C 
J°KT  =  N°KT( JPOS) 

TP( JpKT  .PJ.O)  GOTO  6  6 
Tc( JPKT.PO.JPKTO)  GOTO  55 
j<cy=<PYFN0( J°<T) 

c _ MEW  PACKET  STAPTEO,  FINF  KEY  ANn  KEY  PPIrE 

I F ( JKE Y ,c0 . 0 )  GOTO  60 
PIKcY  =  0J ( J  <  E  Y ) 

J°K  T  n  =  J  °<T 
55  O-OJO) 


2CL10CCC 
20C1001C 
20010020 
20  L 1 0  C  30 
20010040 
20010050 
20010060 
23013LT0 
20010000 
2G010LPG 
20  Cl  0 100 
20310110 
2GC1G12G 
20  Cl  01 3C 
20.010140 
20013150 
20  C 10 160 
2CC10170 
20010180 
20010150 
20010200 
20010210 
20C10220 
20C1C230 
2QG10240 
20010250 
20010260 
20010273 
20010280 
20010250 
20010300 
20010313 
20010320 
20  CIO  3*0 
2QC1C34Q 
20010350 
20 010  360 
20  C 1  0  370 
20010380 
20010350 
2C0 1C4G0 
20  C 1 041 0 
2001042C 
20010430 
20C1344Q 
20010450 
20010460 
20010470 
20010480 
20G104°0 
20C105C0 
20010510 
20G1 3523 
20G1053C 
2001054G 
20C10550 
20013560 


D-UT 


o  o  no 


IF( JT7PE.EQ.  3)  D=-DJ(J> 

IF< JPKT.NE.OJ_  D=n-PTKFY_  _  _ _ 

IF(D.LT.-ZERO)  NDJS=1*N0JS 
IF (D.GE •  OMAX )  GOTO  60 
OMAX  =0 
JCOL  =  J 
GO  CONTINUE 

NCORE= JNCORE 

C - RESTORE  COUNT  OF  NDJS  FROM  CHECK  IF  JUST  DONE 

IF<NTRY.EQ.O  .ANO.  NT.GT.NCPMAXI  NDJS=NQJST 
IF  C  ONAX.LT.-OJTOl)  GOTO  70 

- CURRENT  COLS  NO-GOOD,  QUIT  IF  THESE  ARE  BEST 

TF (  NTRY.EQ.O)  GOTO  100 

GOTO  1  . „ 

- RETURN  WITH  COLUMN  INDEX 

70  RETURN 

- NO  GOOD  COLS,  OPTIMUM 

100  JCOL=0 

C - SAVE  OLD  COLUMNS 

JNCORE=NCORE 

RETURN 

C 

END 


20010570 

_ 2.aaiB.50!L 

20010590 

2QQ10600 

20010610 

.20010620 

20010630 

_ 2QQ10640 

20010650 

20Q1Q660 

20010670 

20010600 

20010690 

_ 20010.700 

20010710 
_ 20010720 
20010730 
20010740 
20010750 

_ 2CO10  7J5J) 

20010770 
20010700 
20010790 
...  20010000 
20010810 


D-48 


o  ci  a  n  o  r>  r> 


SURPCUTINE  OISCT") 

»fv  tffd  10/71 

CHECKS  OTSC  COLUMNS,  ACCFOTTNG  1/NRCU,  IF  NJOT  ALL  T N  Cn^. 

RETURNS  JNCCQE  cr)LUMNS  ANO  PRICES,  f) P  JNCOPF=0 
PACKETS  CAM  TM  RF  TNTF°-MI XFH  WITH  SOHF  LOSS  OF  EFFICIENCY 

our  to  multt°lf  kfy  searches 

COMMON  /I/  M,L,M°L,MC,NT,ICOST,TC,TPHASF,JOHS,IPT 
COMMON  /FT  ATF  /  J^cf,  t row  ,  JCOL  ,  JOUT ,  TTR N , NP F J  , NPIF  ,  NO JS 
Common  /TOLS/  0JTOL, 7F90 , »T VT 9L , ~TOL , ° FP TO L » OFPT OL 
COMMON  /PAPA MS/  TMAX , ITNTNV, TNVC ,K1,K2 ,K 3, K4, ITNCHK 
COMMON  /LIMS/  MAXTPY,NTPY,  JNCOPF  ,NCPMAY,k'SCAN 
common  /COPF./  JAOFJ(101»  ,  JA<iail  »JAK(1'  1)  ,  Aj(licr) 

COMMON  /OA ST S /  I0?STF  (101)  ,KCYS Cl  ll> 

COMMON  /OJS/  OJdPO) 
i'OMMOM  /NAMES/  NAMF(loA) 

TMTECEP  pkt, pkto 
pfal  9d> 

LOGICAL  OASIC.ATPNO  ,NULL,CHFK 
NP<T(J) =MOO( NAME (J>, 100* 03>/l 3 
MULL (T) =MO0(MAMF (T) ,10) >-0*0 

CHECK  FOP  AN  TNVrPT  (  TTRN.r.F.  I  TNTMV) 

CALL  I N VFP  T { n ) 

C 

C - ALL  TN  cope,  NCPMflx  SET  IN  L° 

I F (  MT.LT.NCDMAX)  GOTO  200 

C - ACCFPT  1  COL / NR  Cm  COLS,  9FST  AT  TOPG,  NSW  AT  JOPG,  (ICOL,JCOL) 

N9CH  =  NT/NC°M4X/4M 
NOJF=P«TO= JNCOPE=C 
JOPGsC 
JCOL=l 
I ORG-M 

ICOL=? 

MCOPF=? 

CALL  TNPOSTJNTl 

NRCHS  =  (NH-NRCH-D/MPCH 

c 

00  1C00  JRCH  =1,  MR CHS 

0JOLC  =  1.F1S 

00  1"0  JFRCHr  1,NPPW 

C - OATCH  cycle,  NEXT  COLUMN  JNT 

JNT  =  1 +MOO ( JM  T , NT ) 

J  T Y°F  =  MOOfNAMF (JNT), 10) 

C - S  <  T  °  NULL,  RASIC  OP  KEY  COLUMNS 

T  F ( JT  Y°E .FO • 2 )  GOTO  100 
I F  »  J T Yor .FQ . 4 )  GOTO  10  0 
T  F ( JTY°E .F  0. P )  Goto  100 

C 

c - TF  im  a  GUR  PACKET,  GET  KEY 

P  K  T  r  N°<T( JNT ) 

I F (  PKT.FO.O  )  GOTO  PQ 
I F (  OKT.FO.OKTO)  GOTp  ?J 

C - 1 j S F  AN  UNUSED  KFV  SLOT 

J  Kr  Yr K  E  YFN  D  f L ) 

TF( JKEY.NF, J)  GOTO  1R 
10  ncopfx i ^noopf 

J  K  E  y  =  Mr  0°F 


20010A?0 
2001  )A30 
20010A40 
20  ulO AGO 
20  C 1 0  AGO 
23 J13A7Q 
20010A"3 
20C1GAR0 
20C109CO 
23013013 
20U1092J 
20010930 
2uClGO«*0 
20313993 
203109*0 
20010970 
2001 09B0 
20010990 
20011000 
2c:iiuio 
20011020 
20011030 
2  3  0 1 1 04  J 
20C110RQ 
2CC11CGQ 
20011070 
23:11000 
20011390 
2CC111C0 
20C1H10 
2J  311120 
2CC1113C 
23011140 
200111S0 
23  1>1 1  IF  0 
20311170 
200111A0 
20011190 
20P112L0 
?C  01 1210 
20011220 
20011230 
20011240 
20011290 
20C112F0 
20011*70 
200112AJ 
20011290 
20011300 
20011310 
2CC11320 
20011330 
20011340 
2CC1139C 
20011 3GQ 

?g: 11370 

20011 3a0 
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no  o  no  oon  o  o  o  o  on 


IS  KnPG=  H* JKEY-H 

CALL  INPCKQtKEYS(PJSLTl/190  ,  AJ  LKORG+1) ,  JtLEY)  - 
DJ(JKFY)=  DOTS(H,B(IPI) ,AJ(K0RG*1>  ) 
PKTO=P<T 

- NTH  GET  C3LUNN  AND  OJ. 

20  CONTINUE 

CALL  INIJNT,  AJ(J0RG>1>,  JCOL)  _ 

0 J ( JCOL )  =  OOTSCN,P(IPI)  ,AJ(JORG4-l)  ) 

- CORRECT  FOR  PACKET  ANO  BOUND  EFFECTS 

DJNEW  =  OJ (JCOL ) 

IF(PKT.NE.O)  DJNEW  =  OJNEW  -  OJ(JKEY) 

IF<JTYPE.£Q«.3)  DJNEW  =-DJN£W _ 

IF (  OJNEW.LT. -ZERO)  NDJS=14N0JS 

- SELECTION  STAGE  INTERCHANGE  BEST  FOR  NEW 

IF(OJNEW.GE.OJOLD)  GOTO  100 
OJOLO=OJNFW 

I  =  ICOL  _  ...... 

ICOL= JCOL 

JC0L=I 

I=TORG 

I OPG= JORG 

JORG=T 

100  CONTINUE  _.  . 

IF  (  DJOLD.GT.-OJTOL)  GOTO  099 

- PRESERVE  THE  BEST 

JNCOPE-  l-KJNCORE 

ncope=i«-ncope 

ICOL  =  NCORE 
I ORG  =  HMCOL-H 

999  IF (  NCORE. GE.  NC»HAX)  GOTO  110 

1000  CONTINUE 
110  CONTINUE 

IF { JNCORE.  NE»  0)  JNCOPE=NCORE-l  .... 

GOTO  500 

- ALL  IN  CORE  CASE,  READ  AND  PRICF.  . 

200  I F (  JNCORE. EQ.O  )  GOTO250 
JNCOPE=0 

GOTO  500  .  .  _ 

250  CONTINUE 
JORG=0 

DO  300  JNT  =1 , NT 

CALL  IN(JNT,AJ<  JOPG+1) ,JNCO°E+l) 

TF(  NULL(JNT)  )GOTO  300 
JNCOPE= 1+J NCORE 

OJ( JNCORE)  =  DOTS(H,B(IPI) ,  AJ(JOPGfl)) 

JORG  =  M+JORG 
300  CONTINUE 
GOTO  500 

- DIAGNOSTICS  IF  K3*23 

500  CONTINUE 


20011390 

_ 20011400. 

20011410 

.  _  -  20011420 

20011430 

20011440 

20011450 

_ 20  01X460. 

20011470 

20011480 

20011490 

. . 20011500 

20011510 

_ 20011520 

20011530 

20011540 

20011550 

20011560 

20011570 

_ _ 20  011500 

20011590 
20011600 
20011610 
-  20011620 
20011630 

_ _ 290116-40 

20011650 
20011660 
20011670 
20 01 1680 
20011690 

_ 20011200. 

20011710 

20011220 

20011730 

20011740 

20011750 

.  . . . 20011760 

20011770 
...  20011780 

20011790 
.20011800 
20011810 

_ _ 20011820 

20011830 

20011840 

20011850 

20011860 

20011870 

_ 20011880- 

20011890 
-  20011900 

20011910 
20011920 
20011930 

_ _  20011940 

20C11950 

20011960 
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IF(  HOOfKJ,  2^)  .  we.  f  )  c»£Tupn 

WPITr  <*  ,«;oi>  (Jfl{J),  D  J  ( J  )  ,  J  =  1,.{NC«P-  ) 

ro»MAT(*  OIsr-PPrwjQFn*/ ( ft  (  15,  Fir. 2  ))  ) 
°ETUPN 

cmd  ' 


23C1197C 
20011960 
200119«0 
2 0C120C0 
20012010 


o  o 


FUNCTION  OOTCH^XjVi  _  _ 

C - INNER  PRODUCT  OF  V  AND  V 

DOUBLE  PRECISION  SUM 
REAL  X(1),Y<1> 

SUH=0.0 

DO  100  1  =  1, N 

I F ( V ( I) • EQ • 0 • 0 )  GOTO  100 
SUM=SUM*Xm  *V(  I) 

100  CONTINUE 
OOT  =  SUM 
RETURN 

SINGLE  PRECISION  VERSION  FOR  _S_PEFO 
ENTRY  DOTS 
OOT=0.0 
DO  200  1=1, M 
200  OOT=DOT*X< I) *Y( I) 

RETURN 

END 


_ 20012020 

20012030 

.  200120*10 

20012050 
..  .  .  20Q120i>_Q 
200120/0 

_ 20012080 

200120B0 

20012100 

20012110 

. .  20012120. 

20012130 

_  _20.fil21*tIL 

20012150 

_  _  .  20012160 

20012170 

20012100 

20012190 

_ 2  0  Q  1221  0. 
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C'jBootlT  TNF  OF04PF{0) 

-r.ijn  VEPSTON  aoptt/71 

COMMON  /naosMC/  T“4Y , TTNINV, TNVF ,K1 ,K2 , K 3 , <U , KO 

r'OMMn^  /t_TM<3/  m  4YT°Y  ,  MTOY  ,  JNFOPF  ,T'OOM4  X  ,NFOSn 

COMMON  /T/  M,  L,  MO|_  ,MC  ,NT  ,  ICOCT,  T  ",  r°H4SF  ,  J°H3  ,  I°I 
common  /oasis/  io#st«; (tiji >  ,Krvs(ict> 
common  /MUMFS/  NS«f(l(l(n 

common  /S/  4LPH4(1C1>  /B/  OF  T4  <  1 f  1  >  /C/  G4MM4(tCl>  /D/  0FLT4(1C1> 
common  /COO?/  JflPFj< t Cl) , J4(l J 1 >  , J4<( 1 [ 1) ,  4  I  (10Cr ) 
common  /njs/  njcirn> 

04T4  44LOM4/^M4LOM4/,flBrT4/4HBFT  4/,  4r,4  Hmj  /  SHr.SWMS  /  ,4PT/7rl“T/ 

0  4  T  4  4  J4PFJ/SH  J4PFJ/  ,4  J4/2H  J4/  ,  "-N4MF/ 4«'I4  «F/ ,  4Bfl <5 1 S/BHO  4S I S/ 

04T4  40rlT4/FHnFLTB/,40J/2Hnj/,  B «F Y/ YHK" Y / 

O  OM  mom  /?MS/  OHSflpoi 

Mt><T  (J)  iMO0(M4MF(J)  ,1C000G)/1  ] 

04LL  MO<;cr,(UrMEFC4PFO  4FTF°  Oi)MO  OF  L  °  SYS  T  F  M  ) 

WOT  TP  <F  ,1)  4M4MO 
WOITFIft,?)  (M4MF( J* , J=1,NTI 
W®T  Tr  (F  ,  3)  404FI9 

WOITF(6,2)  (TOAST'U)  = 

WOT  TF (F ,  T)  4KFY 
WOTTF(f,2)  (<FYS(I>  ,T  =  1,L> 

wotTF(C,,3)  4  J  4 

w°ttf(p,,2)  (j4( j>  ,j=i,j»jcn»e» 

wot  TF  (6,3)  4  J4  Pc  J 

woiTF(6,o)  (  J4PFJ(,I>  ,J=t,JMCORF) 

WO  I  T  F  (  F  ,  3)  44LPH4 

WOITF (ft  ,  1)  { 4LPH4 (J) , J=l,MOL) 

w°ITF (6,3)  SOFTS 

W°T  TF  (6,1)  (PFTS  t  J>  ,  J=1,*°L> 

wot  Tr  ( F  ,  3)  SCsmms 

wot  TE  (ft  ,  U  (f,4MM4(J)  ,  Ji1,m> 

woiTF(F,3)  aorLTfl 

WJTTF(ft,n  (OFLTflCJJ 

WO  T  TF  (  ft  ,  3)  4  0  J 

w°ITF(f,1)  (OJ  (J)  ,  J=l,  INCOOF) 

FOOM4T(1W  ,iGe12.B> 

FO»»«TMH  ,1PT12> 

F  OOMflT  (  1H0 , 41  ]) 

C4LL  M4POUT(n) 

■C4USF  4  OUMO 
i=n 

WOTTP(T)  T 
o  F  TU°N 
F  NO 


2fl:i???o 

20C1223Q 

20G1224C 

20P12?50 

2PG122ft  c 

2001 2270 

2GC122P0 

2001?2«P 

? ;  c  i  ?  o ;  f 

20-12310 

2GG12320 

2CC1  233C 

2G 01 2 340 

203123SC 

2CC123ftO 

2  D  t 12370 

2::i?3«; 

2  J  C 1  ?  3  Q  J 

2CG104CG 

2Gwl24l0 

2  G  '  l  2  4  2 

20:i’4*c 

2011244 0 

2  0  C 1 24FG 

?n'ji?4FC 

2H1247C 

ZOCIOFSQ 

20O124Q0 

20 : 12O-0 

20012010 

20G1252G 

?0C12F-«0 

?:n?F4t 

2G-12BSG 

20G12Fff 

20O12F70 

20C12FPJ 

?P  C 1 25°3 

?C  G3 2F f  0 

2T  C12F1G 

73'12ft2C 

20.12ftTG 

ZOO l’ftw; 

2  C  C 1  7  F  c>  0 


O  O 


SUBROUTINE  EXITS  _  _ _ _ 20012660 

COMMON  /  CV7  /  NPH»SE,NFl,CFX,IO«*f,NOP,NOPS,NEHXZ  20012670 

RRIMAL  CALLS  THESE  ENTRY  POINTS  AT  THE  END  OF  EACH  PHAS2.  _  20012680 

- 20012690 

ENTRY  OPT1  _  ...  29112700 

NPHASE=1  20012710 

RETURN  20012720 

C - 20012730 

ENTRY  0PT2  _  .  20  012740 

N»HASE=2  20012790 

NF1  =  1  _  . . .20012760 

CALL  STATUS(40HPPIMAL— END  OF  PHASE  2 — OPTIMAL  )  20012770 

RETUPN  .  _  ...  _ _  _ 21 012770 

C - 20012790 

ENTRY  UNBNO  .20012800 

NRHASE=4  20012810 

CALL  STATUSC40HPRIMAL  — UNBOUNOEO  SOLUTION  ).  20012820 

RETURN  20012830 

c - - - - - - — — - 2Q  012340 

ENTRY  NOFEAS  20012850 

NRHASE  =  5  20012860 

CALL  STATUSC40HPRIMAL—  NO  FEASIBLE  SOLUTION  )  20012870 

RETUPN  _  20012880 

c - 20012890 

ENO  . .  ...  ...  .  ....  _  20012200 


r>  o  o  o 


furrouttne  EFAsrH(P)  20012010 

- r,!jn  \/co<;ir)M  APRIL/71  2G012R2L 

- GIVEM  CURRENT  TMvrP^P  s,  PHS,  KEv  AMD  POUNDS  TN  GAMMA  20L12R3G 

- roMOijTFS  CURPPNT  SOLUTION  BETA,  MO.  OF  I  ME f AS  IDLES  NRIE.  20C12RA0 

- IF  qcTa  jmfF  AS,  APOS  ARTIFICIALS  AMD  Rrycors  TO  PHASE-1  ?001?Rr0 

COMMON  /OARAMS/  TMAX , ITNINV, INVE  ,K1 ,K2 ,K 3, <4 ,K5  2C'-12a60 

COMMON  /STATE/  JOPS, TPOW, JCOL , JOUT, TTPN,mbfj,noIF,mqjs  2CC12973 

COMMON  /9AST*/  T"AFT^ (131 ) .KEYF (  1C1)  20L129PO 

common  /a/  a  l  °h  a  < i c i )  /r/  ret  a ( i r i )  /c /  camma(ioi)  /o/  tel  t  a  < i n i )  2on?R90 

oommom  /I/  M,  L  «  M°L  ,  MC  ,  NT  ,  ICOFT  ,  T  P,IDHASF  ,  j  RHS  >  TDT  ?CC13Clil 

Common  /on»F/  JA°FJ( i oi) , JA (101)  , JAK (1  „  1) , AJ (1Q2C )  2CC13010 

COMMON  /TOLS/  DJTPL»7F*?OtPTVTOL  »rTPL»°rPTOL» OFRT PL  2CC13020 

common  /nouNns/  °ounps(ioqi  , nos  (icn> , mods  20013030 

COMMON  /NAMES /  NAME (ICO)  200130^0 

common  /RHS/  7M?(1&0)  2CC13G50 

LOGICAL  KEV  20C13&60 

PEAL  9(1)  70017070 

M«»KT(n  =MOO(MAMF(Tl  ,1  0  3  a  0  3  I  '.1  2Z:i30P0 

ITP(J)  =MOO  (  T  R  AS  IS  (  J)  ,1CQ)  20 G 130 90 

KEY=.FALSF.  2CC131C0 

OO  1C  T=l,M  20013110 

10  OELTA(T)=0.n  2CC13120 

O^L T A (M) =1 . G  20013130 

C - COMPUTE  ErFEC  T  T  VC  RHS  Tn  GAMMA  U^IMG  KFV  «•  ROUNDS  ALREADY  THERE  2GC13140 

DO  ?C  T=1,M  2CC131R0 

20  G AMMA{ I) s+GAMMA (I) >PHS(I)  20  C 1 3160 

C - CVCLF  ELEMENT S  PE  SOLUTION  2Col3173 

N  °  T  F  =  3  20013160 

S  UM  T  F  =  0 .  20C131R0 

RNOJ=l.F7G  2 0C132CC 

I 0»G=1  2CC13210 

mm l =m- l  2DC1322C 

OO  ICO  T  =1  *  mm i  20 1 1 3230 

SUM  =  OOT( M,  R(IOPC),  gamma  )  2CC13240 

rfta(TJ=SJM  200132R0 

T0oG=  MfiOPG  20  Cl  3260 

JOUT=  IRASTS ( T) /ICO  20  C 1 3270 

I f ( moos . ED . 3  >  GOTO  sr  ?0C132«0 

C - CHECK  YJOUT  LESS  THAN  ROUND  2001  ^RO 

BNDJ  =  RHUMO ( JOUT )  23:i3?rc 

T F (  SUM.LE.RNDJ  +  7FP0)  GOTO  SC  2CC13310 

C - ROUND  VIOLATED,  RFmove  RDUND  AND  TPFAT  A;  TNFFAS  XJOUT  20013320 

IE (MOD <<3, 13) .EQ. t)  WPITE <E, 1G1)  I , JDU T , SUM , RNO J  20017330 

call  setrnd  (jnun  2cci33«*o 

PET  A (T) rOFTA ( T) -RNDJ  23:i33EG 

GOTO  63  20C133E0 

C - CHECK  XJOUT  POSITIVE  FOR  NON-FREr  oows  20C13370 

SO  I F  (  I  TO  (T).EQ.7  )  GOTO  100  ?P0133*G 

T  F (  "ETA (I) ,GC. -7CPO)  GOTO  1  33  200133R0 

C - INFEASTRLS,  add  APT  IEICT  AL  TO  <TLL  ERpr*n  AND  ®TVOT  IN  20C1341.0 

IF(MOD(K7,13) .EO.D  WRTTE(6,131J  I , JPU T , SUM , RNO J  23C13410 

SS  CONTINUE  20013420 

CALL  SETPMR  (  -  JOUT  >  2GG13‘*3Q 

PETA(I) =  -9FTA(T)  2CC1344G 

63  MR I E= 1 ♦ NpI E  2G  01 3460 

JO<t=c  20013460 

TE(  jnijT.LE.NT)  JOKTrMPKT  (  JOUT)  20G1347Q 
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TF<  JPKT.NE.O)  KEYS(JPKT)=KEYS(JPKT)-1 

SUMIF=SUHIF+BEIA(I1 _ _  ....  _  .  - - 

T94STSm  =  100M10  0*jnUT4-NT>+HOD<  TBASIS  (I)  ,  1 0 3 > 

DELTA(I)=  -1. 

IF  (JOUT  .  GT  .NT)  DELTA  (M) =2 • 

CALL  °IVDT<I,R, DELTA) 

DEL  T  A  ( I )  =  0. 

DELTA  ...  .  .  ..  ... _ _  _ 

IFCKEY)  GOTO  150 
CONTINUE 

FORMAT  (*  INFEAS— ROH*I5*  C<U*I5*  VALUE*E12.4*  BOUND*E12.4> 
--CONSTRUCT  COMPLETE  SOLUTION  FOR  KEYS  IN  BET  A  (M+l)...*.** 
TF(L.EQ.O)  GOTO  151 

8N0 J=1 . E70  _ .  . .  . 

KEY=.TRUE. 

DO  150  K=1,L 

—CHECK  PACKET  HAS  RASTC  COLS 
SUM=  0.0 

NO  =  MOD  (KEYS  (K) ,100) 

IF(NP  .EQ.O  )  GO  TO  115  .  _  _ _ 

--SUM  RASIC  COL  VALUFS  IN  PACKET  K 
DO  110  1=1, M 

j“os  =  laasism/ico 

IF(NPKT(JPOS> .EQ.K)  SUM=SUM*8ETA (I) 

continue 

BETA(M+K)  =  RHS  (M*K)  rSUM  .  _ _  _  — 

TF (BETA (M+K) .GE.-7EPO)  GOTO  150 
-INFEASIBLE  GUO,  MUST  BE  ESSENTIAL,  CHANGE  TO  BASIC  ROW  I 
JOUT^KEYS(K) /100 

IF(MOO(K1, 13) .EQ.C)  HRTTE (6, 111)  K, JOUT, SETA CMtK) ,BNDJ 
FORMAT <*  INFEAS  — GU8*T5*  C0L*I5*  VALUE*E12.4*  B0UND*E12.4> 

CALL  KEYCH ( JOUT ,I.,P)  . . . . .  ... 

GOTO  55 

CONTINUE 

CONTINUE 

--TOTAL  INFEASIBILITY 
BETA(M) =0. 

DO  160  1=1, MM1  . _  .  ...... 

IF (IRASIS(I) /100.LE.NT)  GOTO  160 
BETA(M) =BETA(M) -RFTA (I) 

CONTINUE 

—  INDICATE  PHASE  1 
IF(ABS(OETA(M) ) .LT.CTOL)  GOTO  200 

I“HASE  =1  . .  . . 

IF(M00(K3,13)  .EQ.C )  HRITE(6,1B9)  SUMIF , BET  A { M) 

FORMAT (*  TOTAL  INFEASIBILITY*E12 .4*  PHASE1  C0ST*E12.4> 

—  ADJUST  COST  POM  IC  AND  ORIGIN  IPI 

IC  =  ICOST 

IF ( IPHASE.  EQ. 1)  TC  =  M 

IPI  =  1+M*IC-M  .  ..  .  _ _  _  . 

--PHASF  1  COST  IS  EQUALITY  ZERO  IN  PHASE  2 
I9ASIS<M)  =  10  0MIPASIS<M)/100> 

IF(IPHASF.EO.l)  TRASTS(N)=I8ASIS(M)*3 

PETUPN 

ENO 


20C13480 

- 2J-D 1-3A90- 

200135C0 

20013510 

20013520 

20013530 

20013540 

_ 20013550 

20013560 
20013570 
20C13580 
20  Q13590 
20013600 

_ 20  013610 

20013620 

20Q13630 

20013640 

20013650 

20013660 

. -...20013670 

200136*0 

20013690 

20013700 

20013710 

20013720 

_  20C13730 

20013740 
20013750 
20013760 
20013770 
20013780 
-  ._2Qul379Q- 
20013800 
20013810 
20013820 
20013830 
20013840 
_  _  20  013850 
20013860 
20  C 13870 
20013880 
2001 38Q0 
20C13900 

_ 20013910 

20C13920 
20013930 
20013940 
20 01 3950 
20013960 

_ _ 20013970. 

20013980 

20013990 

200140G0 

20014010 

20014020 


n  o 


0 


r. 

r. 

C 

r 


o 


6 


0 


6 


c 


10 


c 
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S')nPntJTTME  INVrPT(0)  20014070 

- r.U P  V F  PSI  OM  APPTL  /7  1  ?G  j14u43 

COMMON  /R3UNOS7  ooi)MDS(iaO)  »  I90S  (Ijl1)  ,  Nms  20014053 

nMM«M  /STBTF/  jpo**,  TPOW,  JCOL.JTJT,  TTPf'.MPc  j,MOTr,nnjS  200140^0 

fommfn  /TOL  S  7  OJTOL,TFPO,  PIVTOL  ,  ~ TOL , ® FOTO L , DE^T Pl  2GC14G7G 

FOMmivj  /pftPftMS/  T  H  ft  X  ,  IT  NT  NV ,  IMVF  ,  K1  ,  K?  »  K  7  ,  <4  , I TNPMK  7CC14C«G 

common  /pis^ic/  necx«- (ion  , kfys ( ioi>  20014090 

COMMON  /M  A  l  °MA ( 1  Cl )  70/  GFTA(1  1)  /c/  OJMMidOl)  70/  0rL T  M 1 L  1 )  20C141C0 

FOMmom  /LIHS/  MAXTPY.NTPY, JNOOPF.NOOMAX,  ISOAN  20014110 

Common  / 1/  M,L,H°L«MrtMT,  ICnST,TF,TPH4SF,J->HS,IDI  2:r1412j 

COMMON  /COPE/  JflPFj(tOl)  ,  JA(1J1>  ,JAH(1.,1),»J(1j;J  23.14130 

COMMON  /NBMFF/  NBMF(IOO)  20  G  1  41  40 

COMMON  /QHS7  PHS(UO)  2CC14l6i, 

'->EAL  9(1)  20014160 

IMTFf.FO  PKT.PKTO  2CG1417'0 


LOGICAL  OASIC,ATmn 
T  T° ( J) = MOO ( io as  IF (J) ,10  0) 

m p < t ( j )  =  Mm ( m a m f (j)  ,icooou)/io 

INVFPTS  CUD°rMT  Pft^TP  VFCTOPS  ANO  AOJUST~  rr)P  POUNDS 
IF(  TTPM.LT.it  NT*"V)  PFTUPM 
CftLL  M£SSG(4CHTMVFPT 
f  TrP  ft  T  T  ON  OF  NEXT  TNVFPT 


?0:i41«G 

2QC141°G 

?ooi4?ro 

2GC14213 

23L1472G 

200142*0 

20014240 


T  T*l  TMV  =  I  TPMt  I  MVF 


2C:i42c0 


20014260 


TF(L.HQ.C)  SOTO  1* 

rnjNT  mtfftmg  keys  th  nkm  a  mo  cl'-ap  OASi''  mijNT 

M  <M  =0 

no  6  T  =  1  ,L 
K=KFYS( T)/10C 
IF(K.cn.O)  N  X  M  =  NX  M  + 1 
KEYS  f I )  =10  0*  K 
CONTINUE 

TF(NKM.EO.O)  Goto  i 6 

F  I°ST  SO  AN  pasio  mus  FOP  <F  y  0  a  MOI  Oft  T  FS 

jtag=* 

0 OUT I SUE 

on  i;  j =mc , m t 

<=MPKT ( J) 

TF(K.FO.O)  GOTO  1  r 
JTY°F=MOO(NAME ( J) ,1Q) 

TF( JTYOE.MF. JTftO)  GO  T  O  10 

tf(kfys(K) /ico.nf.o)  goto  ir 

SET  FOLIJMM  J  KFY  TM  ° flCKF T  K  ANO  PrFUCE  COUNT  NKM 
KFYS (K) =100* j 
CALL  SETKFY(J) 
nkm=nkm-i 


2  0  LI  42  70 
20014260 
20  0 1 42°  J 
2c:i49(.o 
2CC1431G 
70014320 
20014330 
20C1434C 
200147*0 
20014360 
20014370 
2CG143H0 
20  0143°0 
200144rC 
20014410 
20C1442C 
20G1447C 
70014440 
20 C 14460 
20  f 144*0 
2CC14470 
20014480 


CONTINUE 

IF (NKM.EO. 0)  GOTO  IF 
IE( JTAG.NE.2)  GOTO  ii 
NOW  cxAMTMF  ppcf  columns 

j  t  a  g  =  i 

GOTO  6 

continue 

rUL  F°°oP  (4GMTN'/fpT  -  -Sr7EPaL  KCYS  UNM APKE 0-0 A T i  FOB. 
CALL  ESGft’E ( O ) 

M'JLL  PASTS  Except  rnn  fofe  POMS  SftvTMG  TY^ES 


21 j 1449C 
2CC1461 0 
2C014F1C 
2CG14F20 
23  3145TD 
20C14540 
2CC146EL 

20C145F0 

20 .14673 
70014680 
2001 45°0 


n-57 


ooo  o  oooo  o  ooo 


15  CONTINUE 

I09G-3  _  _  _  _  _  _ _ _ 

00  20  1=1, M 
GAMMA<I>=0.0 

ITYPE=MOO<I9ASIS(I),1CO) 

IF(ITYPE.NE.3)  IPASISCI)=ITYPE 

C - SET  U°  UNIT  BASTS  ANO  ZFRD  RHS 

00  10  J=l, N  _ 

10  B(IORG*J)=0. 

B(IOPG*I)=1.0 
20  1 0PG=T  ORG+M 

- RESTORE  PHASE1  LOGICAL 

IBASIS(M)=100*NC+TTYPF 

- CYCLE  COLUMN  NAMES,  KEY  COLUMNS  TO  KORG,  OTHERS  TO  JORG 

jf)PG=M*JNCORE 

KORG=JORG*M 

- p«T  J5  CURRENT  GUP  PACKET,  PKTO  IS  PACKET  OF  LAST  KEY 

PKT  0=0 

00  200  JNT  =  1 ,  NT  _ .  _ 

JTY»E=  MOD (  NAME(JNT)  ,10) 

TFIJTYPF.LE. 1)  GOTO  ?00 

- GET  THIS  BAS  I C/ BOUND ED/ KEY  COL  TO  CORE 

JP0S=JNT 

TO  CALL  INIJPOS, AJ (jnPG+1) , JNCORE+1) 

PKT  =N»KT (JNT)  .  .  ..  . .  . . 

IF(JTYPE.GE.S)  GOTO  150 

- BASIC  COLUMN,  IS  KEY  NEEDED 

IF(PKT.EQ.O)  GOTO  120 
IF(PKT.EQ.PKTO)  GOTO  100 

- GET  key  and  record 

CALL  INPCKDCKEYS(PKT)/10J),AJ(KOPG±l.),JNj:ORE+2>.  _ 

°KTO=PKT 

- REMOVE  KEY  COMPONENT  FROM  COL 

100  DO  110  1=1, M 

110  A J ( JORG  +  I)  =  A  J ( JOpG+I) -AJ(KOPG^I) 

- TRANSFORM  TO  CURRENT  BASIS 

120  IORG=l  _  _  _ 

DO  1T0  1=1, M 

ALPHAII)  =DOT  (  M,  R  ( IORG  )  ,  A  J  (  JORG*l )  ) 

130  IORG=IORG*M 

- FIND  BEST  ROM  TO  PIVOT 

TROH=0 

CALL  PIVOT (IRON, BjALRHA)  _  .  _  _ 

IF {  IROH.EQ. 0 )  GOTO  ?00 

- INCREASE  COUNT  OF  BASIC  COLS  IN  JACKET 

IF(PKT.NE.O)  KEYS <PKT)=KEYS (PKT) >1 
GOTO  200 

- PICK  UP  BOUND  OR  PHS  OF  PACKFT 

150  IF(PKT.NE.O)  GOTO  155 
BNOJ=BOUNO(JPOS) 

GOTO  156 

155  9N0J=RHS(PKT+M) 

156  DO  160  J=1,M 

160  GAMMA(J)  =  GAMMA(J)-  AJ(J0RG*J) *9NDJ  _ _ _  _ 

200  CONTINUE 
C 

D-58 


20014600 

_ 2Q  014610 

20014620 

20014630 

20014640 

. 20Q14650 

20014660 

_ 204146.70 

20014680 

20414690 

200147C0 

20014710 

20014720 

200147.30 

20014740 

20014750 

20014760 

20014770 

20014780 

_ 204147.90 

20014800 

20014810 

20014820 

20014830 

20014840 

. _ 20-014454. 

20C14860 
.  20014870 

20014880 
20014890 
20014900 

_ -20014910. 

20014920 

20014930 

20014940 

_ _  2001495Q 

20014960 

_ -20.0 14370. 

20014980 
20014990 
20  0150  GO 
.  20015010 

20015020 

_ 24415030. 

20015040 
20015450. 
20015060 
...  _  20015070 
20015080 

_ -20415494. 

200151C0 
.  _  -  20015110 
20015120 
20015130 
20015140 

_  20015150 

20015160 

20015170 


o  o 


_ C  OMP|_F  T  F  BASIS  WITH  ftOTIFTCT  ALS 

- _ COUNT  LOGICAL  S  IN  JL 

JL  =  0 

00  2 10  I=1*M 

TF ( HOO (IBASTS(T>*1'0>.NF.J>  jl= ji ♦! 
rc (  ibasis (i > /i cc »nc* c  )  goto  ?i: 

I F (MOO ( T°BSTC (I) , tOO)  .MF.t)  GOTO  205 
- MA<f  A  LOGICAL  BA°TC  INST!" AO 

TOASTS(I)  =  10(1*JLtTOAcTS(I) 

GOTO  21Q 

2C5  CONTTNUr 

TOftGIS(I)  =  lCC*(I  +  k,T)<-TOASIS(T) 

213  CONTTMUF 

- i\ OO  APTTFTGTALS  NEFQr P 

HO  220  T  =1 ♦ M 
2?n  OFLTA( n  =0 .0 
O*ILTA(M)=l#0 

no  ?<* o  i=i»n 

TF(  IPASISdJ /10C.LP.NT)  GOTO  24L 

r, - ONE  MEEOED  onw  I 

OeL  T  A ( I ) =1 . G 
I 0°G= 1 

no  2.10  j=i,m 

ILomiJl:  GOT  <M  ,  Q  ( IO°G)  ,OELT  A) 

210  IOPG=TOOG*K 
OFi_TMT»=C.O 
CALL  °TV/oTfT,B,  AL°HA) 

240  CONTINUE 

0 

C _ KjOW  USE  p  AND  G  AHMft  TO  GET  SOLUTION  T0  B'.TA 

CftLL  FFASCH(B) 

"ETUf’N 
*"  NO 


2GG151PC 

2QC151B0 

203152 3 

20C 15210 

20C15220 

20015210 

200  1524  3 

2GC15253 

2G61525G 

2 0015270 

20015280 

2011*5?°!: 

?0ul51L0 

2001*5110 

20015120 

20 3 15313 

23015143 

20C15350 

20C151F0 

20  315373 

20315180 

2GC151°C 

?oci 54c  n 

20Q15413 

20335420 

20  015410 

20015440 

2331545; 

23315453 

20  315470 
23  C 15480 
20015400 
20115513 


o  o  oo  oon  oo 
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SUBROUT INE  IOCKOL,  ALPHA.,  NAME)  _ 

"GUM  VERSION-- APRIL -2 0-1 97 1 
•WRITES  TWO  FILES  OF  A  MATRIX  TO  DISC 
COMMON  /FILES/  IA1,IA2,IHAP 

COMMON  /I/  H,L,HPL,MC,NT,ICOST,IC,IOHASE,JRHS,IPI 
COMMON  /ROWTYP/  IPOWTPC101) 

COMMON  /LINS/  M AXTPt,NTRY, JNCOREjNCRMA X*MSCAN 
COMMON  /CORE/  JAPEJ(lOl) , JA(101)  ,JAK(1G1) , AJ(1000) 
DIMENSION  ALPHA  (1) ,10(100) ,0(100) 

COMMON  /B/  AL°HB(100) 

DATA  ZERO/1. E-10/ 


IN  STRAIGHT  OR  °ACKED 


ENTRY  OUT 


•TO  DISC  FILES  IA1/IA2 


IF  (KOL.GT.l)  GOTO  10 
REWIND  IA1 
REWIND  IA2 
KOL1=KOL2=0 

-STRIP  GUBS  AND  PACK  FOR  TWO  FILES 
J=K=G 

OO  20  1=1,  M 

IF (  IROWT°(I) .EQ.4  )  GOTO  20 
J=J  +  1 

ALPHR(J)=ALRHA(I) 

I  c  (  APS  (  AL<*HA  (D).LT.ZERO)  GOTO  21 

K=K  +  1 

IO(K)=J 

D(K)=ALPHA(I) 

CONTINUE 
NAME=KOL 
WRITE  (  I  Al) 

WRITF  (I  A2) 

RETURN 


KOL , NAMF , (ALPHB(I) , 1= 1 , J) 
KOL,NAME,K,(IO(T) ,0(1) ,1=1, K) 


ENTRY 


COLUMNS  FROM  DISC  IA1 


GOTO  110 


IN 

: - FOP  NO°MAL 

DO  100  JNT  =  1 , NT 
I F ( MOD ( KOL 1 , N  T )  .NE.Q) 

99  REWIND  IA1 

REWIND  IA2  ...  .  .  .  .. 

NSC  AN  =1+NSCAN 

110  RE AO (I  A  1)  KOL 1,NAAM, (AL°HA(I) , 1= 1 ,M) 
IF(KOL.LT.KOLl)  GOTO  99 
IF(KOL.EQ.KOLl)  GOTO  101 

100  CONTINUE 
GOTO  300 

101  CONTINUE 

: - U°D ATE  RECORDS 

120  CONTINUE 
JCOL=NAME 
J A ( JCOL ) =KOL 
J  AK ( JCOL) =  NAAN 
JARFJ( JCOL ) =0 
PETURN 


AND  TRACK  DISC  LOCATION  IN  KOL 


_ 201115510. 

20015520 

FGRM20015530 

20015540 

20015550 

20015560 

_ 20015.570 

20C15580 

20015590 

20015600 

20015610 

20015620 

_ 20015630 

20015640 

20015650 

20015660 

20015670 

20015680 

_ 20015690 

20015700 
20015710 
20015720 
.  20015730 
20015740 

_ 20015750 

20015760 

20015770 

20015780 

20015790 

20015800 

_ 20015610 

20015820 
20  015830 
20015840 
20015850 
200158*0 

_ 20015870 

20C15880 
20015890 
20015900 
..  20015910 
20015920 
.  _  20015.930 

20C15940 
20015950 
20015960 
20015970 
20015980 
— 26O159S0. 
20010000 
20016010 
20016020 
20016030 
20016040 

_ 22016056 

20016060 

20016070 


D-60 
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c 

c 

FNToy  TNP9S 

C - TO  GPT  THF  I  N°U  T  FTL  r  OOSITIRN 

< OL  OL  1 
OETURN 
C 
C 

F NT fc>Y  TN^CKG 

C - AUXILIAPY  FTLE  FOP  KEYS 

00  7C0  JNT  =  1  ,  NT 

IF{  MO0(K0l2,NT)  .WF.o  GOTO  100 
100  dc-kjmo  T«2 

190  DE4D(tA?)  K7L2, NAAM,K, (10(1) ,0(1)  ,1=1, K) 

TF(KOl .LT.KOL?)  GOTO  195 
IF(KOL2.r'3.KOL)  GOTO  201 
200  CONTINUE 
GOTO  TOO 
?j1  CONTINUE 
C - UNPACK  0  TO  AL^HA 

no  210  i=i, m 
210  Al°M® ( T ) =0  » 

IF(K.EO.O)  GOTO  t  2  p 
00  220  1=1, K 
J=IO(I) 

220  Al»HA(J) =0(1) 

GOTO  t?0 
C 

C - T  °0  URL  C 

TOO  CALL  E°»OP  (LCHIO — COLUMN  NOT  LOCATED  IN  NT  PFAOC 
CALL  ESCAPE (  R  ) 

ENO 


1 


2C  )16uft0 
23016090 
23016100 
2C  0161 1G 
70  016120 
2CC16173 
20 016190 
20015150 
2CC161F.  0 
70  01 51 70 
20':i51P0 
20015190 
20016200 
’0015730 
20015220 
20  Cl  5270 
20016290 
20015250 
230162FO 
?C  C 1 5270 
20C152«0 
20015290 
20016700 
20016310 
20016320 
20016730 
20016393 
20016350 
20C16360 
2C  016370 
20016380 
2G01639C 


D-j1 


O  O  O  O  O  DC 


\ 


c 


c 


SUBROUTINE  KEYCH(JCnL,IROW,B) 

-GUR  VERSION  APRTL/71 

COMMON  /I/  m,l,hpl,mc,nt,icost,ic,iphase,jrhs,ipi 
COMMON  /BASIS/  IB ASIS (101 > ,KEYS < 1 01 ) 

COMMON  /NAMES/  NAME(IOO) 

COMMON  /A/  ALPHA!  101)  /B/  BETA! 131)  /C/  GAMMA (101) 
REAL  Bll) 

NP<T!J)*MOO!NAME! J>  » 100000) /10 
I T° ( J) =MOD !IBASIS!J) ,100) 


_  20016400 

20016410 
2001.6420 
20016430 
20016440 
/O/  DELTA  !  101 )  20016450 


2551&4.6J) 

20016470 


20016460 

20016490 


- INTERCHANGE  KEY  WITH  FIRST  BASIC  COL  IN  KEYS  PACKET 

RETURNING  ROM  OF  NEW  BASIC  COL  !OLD  KEY) 

JCOL»K=  NPKTIJCOL) 

- FIRST  BASIC  COL 

HO  10  1  =  1,  M 
JKEY  =  IBASIS! I) /100 
IF ( JKEY.GT .NT )  GOTO  10 
IFCNPKT ! JKEY) ,EO. JCOLPK)  GOTO  20 
10  CONTINUE 

CALL  ERROR  ( 40HKEYCH--ESSENTI AL  PACKET  NO  BASIC  COL 
CALL  ESCAPE 

- RE-DIFFERENCE  BASIS  INVERSE  TO  MAKE  JKEY  KEY 

20  TROW  =  I 

JORG  =  M*IROW-M 
DO  30  J=1,M 

30  B  { JO°G  + J)  =-R  ( JORG+-J) 

IORG  =  0 
DO  50  1=1, M 
IF!I.FO.IROW)  GOTO  50 
IB=IBASIS!I) /100 
IF(TB.GT.NT)  GOTO  50 
TFINPKTIIB) .NE. JCOLPK)  GOTO  50 
DO  40  J  =  l,  M 

40  B  ( JORG+- J)  =  B!  JORG-*- J)  -B  1  IORG* J) 

50  IORG=IORG*M 

- MEW  KEY  IS  NOW  JKEY 

CALL  SFTKEY ! JKEY) 

KEYS (JCOLPK) =  1 00 ’JKEY*  MOO (KEYS (JCOLPK) ,1 00) 

C - COL  JCOL  IS  NOW  BASIC 

CALL  SETBNB ( JCOL ) 

IBASIS ( IROW) =100*JCOL+ITP( IRON) 

C - REARRANGE  SOLUTION 

MPK=M+JCOLPK 
SUM= ALPHA! IROW) 

ALPHA! IROW) = ALPHA (MPK) 

ALPHA (MPK) =SUM 

SUM=  BETA! IROW) 

BETA(IROW) =BFTA(MPK) 

BETA (MPK) =SUM 

RETURN 

ENO 


20Q1650C 

20016510 

_ 20016520 

20016530 
20016540 
20016550 
20016560 
20016570 
20  01658.0 
20016590 
20016600 
20016610 
....  20G16620 
20016630 
....  .20  015640 
20016650 
20016660 
20016670 
20016680 
20016690 

_ 23P157CQ 

20016710 

20016720 

70016730 

20016743 

20C16750 

20C16760 

20016770 

20016780 

20016790 

200168(30 

20016810 

_ 20.516820 

20016830 
20016840 
20016850 
_  20016860 
20016870 
...  2D  016.5.50 
20016890 
20016900 
20016910 
20016920 


D-62 


ruMf'Tio»J  keyfnd(°ft) 

f'riMMOM  /Cfl9F/  J A°f  J (  1  Cl )  .  J ft  ( 1  0  1 )  .  J® < ( 1 C 1 )  » A  J ( 1 3 0 C ) 

COMMON  /LtMC/  MA*tpy,NTPY, JNCORE.NCPMAY.NSCAN 

OOMMON  /NAMES'  NAME (101) 
o  ommon  /oasis/  TPASIS(lOl) ,KEYS( ion 
TNTFCE0  p<t 

NP<T (I)  =MOD(N  AM  F(T)»1  CO  000/10 

_ r,JV  FN  PACKET  NO.  PKT »  FTNO  ITS  KrY  TN  CO^E 

TF(PKT.FO.O)  SO  TO  IDO 
Kcv  =  KEYS (»<T ) /I  CD 
00  *»2  <=1,JNC0RF 

TF(  JA<<)  .EQ.KEY)  r-OTO  30 

23  conttnuf 

<FYFMO=0 

PFTU°N 

3 j  KPYFNO=K 

pEt(JPN 

_ FINO  THE  FIRST  KEY  WTTH  NO  COLUMNS  IN  CO-E  SOP  CKEC< 

1  JO  on  130  <=1 , jwroPF 
J AK=JA (K) 

JTYPF=M00{NAMF( JAK) ,10! 

IF(  JTYpF.nF.M  Goto  130 
JP<T-NPKT(JAK) 

00  1?£J  J=1  ,  J NCO pc 
JAJ=JA(  I) 

jTYDF=MOO(NAME( J»J> .10) 

I F  (  JTYPE.EQ.  )  SOTO  123 
IF(  J°KT.EQ.NP<T  (JAJ)  )  GOTO  1-33 
120  CONTINUE 

GOTO  TO 

1X0  OONTTNUC 
K E  YFNQ  =  3 
DETU°N 
c  NO 


20016930 
2U1694C 
20G169S0 
2001 69^3 
2GC 16970 
2CC169AG 
20016990 
2C  ul70GD 
2C  317010 
20  G1 7C2G 
200170,0 
2?  017043 
2CC17JEC 
20017060 
20017070 
20  Cl  70  PC 
23D1/0O0 
20C171C0 
2CG171H 
20017120 
20D1713Q 
20C1714C 
2CC1T1SC 
20017160 
20  31/170 
20017100 
20C 1 71°C 
20C17200 
20C1T213 
20C17220 
20  C 1 7230 
20C172UC 
20  C 1 7260 
200172F0 
2CG17270 
20017200 
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oo  no  o  ooo 


n 


10 

11 

12 


15 


19 

20 


30 


SUBROUTINE  MflOlN(B)  ..... _  _ _ 2MU25J3. 

GU9  VERSION  APRIL  20/71  20017300 

»00S  SPECS  FOR  BOUND/8ASIC/NULL /KEY  VAPI ABLES  ANO  INVERSE  IF  PRESE2Q01731Q 


OPTIONALLY  CALLEO  BEFORE  INVERT  20017320 

COMMON  /STATE/  JPCS, IRON, JCOL , JOUT, ITRN ,NRE J , NPIF, NO JS  _  20017330 

COMMON  /BASIS/  IBASTS(lOl) ♦KEYS(lOl)  20017340 

COMMON  /A/  ALPHA  (101)  /B/  BFTA(1C11  /C/  GAMMA  d011_  /JD/  _Q£L.I  Sl  (-1.G  1J _ 2QJLLL35H 

COMMON  /I/  M,L,MPL,MC,NT,ICOST,IC,IPHASE,JRHS,IPI  20G17360 

COMMON  /FILES/  IA1,IA2,IMAP  20Q1Z370 

COMMON  /INPUT/INPUT, INPUTM,INPUTN  20017380 


COMMON  /TOLS/  DJTOt. ,  ZERO,  PIVTOL  ,  CTOL  ,  PER  TOL,  OERTOL  ...  .  _.  ...  _  .  20017390 

COMMON  /NAMES/  NAME(IOO)  20017400 


COMMON  /BOUNDS/  "BUNDS  <1Q  Q  1  ,  TB0S  ( 1U  >  »  NBOS  ........ _  .  20017410 

COMMON  /PARAMS/  TMAX , ITNINV, INVF ,K1,K2 ,K3, K4,K5  20017420 

REAL  BC1)  20017430 

DIMENSION  CARO ( 8)  20017440 

INTEGER  NAMES (5 )  20017450 

INTEGER  PKT  20017460 

REAL  NULL, KEE,INVERS  .  .  20CL747Q 

DATA  BASIC/5HBASTC/, ATBN0/5HAT9ND/ ,EN0ER/5HEND  / , ROHS/4HPOWS/  20017480 

♦  , NULL/4HNULL/,  KEE/ 3HKEY/ , TNVERS/5HI NVER/  20017490 

+  ,REHIN0/6HRFHTN0/  20017500 

I  TP ( J) =MO0 (IRASIS(J) ,100)  20017510 

NP<T (11  =  MOD(NAMECT) ,100000)/1C  20017520 

-SETS  BASIC  COLUMN*  AND  LOGICALS  .  .  ...  ..  .  _  _ _ 20.017530 

CALL  MESSGC40HMAPTN  >  20017540 

REMIND  TMAP  20  til  7550 

REAOCIMAP  ,111  TYPF1,TYPE2, (NAMES(J) , J=l,4)  20017560 

FORMAT <245,41101  20017570 

IF(M00CK3,31  .EQ.01  MPITE<6,121  T YPcl , T Y»E2 , (NAMES ( J 1 ,J= 1 ,41  20017580 

FORMAT  (X.2A5, 41101  Z0.&1759O 

IFCTYPE1.EQ.BASIC1  GOTO  30  20C17600 

IFCTYOE1.EQ.KEE1  GOTO  50  20017610 

IFCTYPEl.EO. ATBNOl  GOTO  15  20C17620 

IFCTYPE1.EQ.NULL1  GOTO  80  20017630 

IF(TY»E1.EQ.INVERS1  GOTO  95  20C17640 

TFCTYOE1.EQ.ENOER1  RETURN  _  _  _ _ 2001765Q. 

CALL  ERRORC40HMAPIN — UNRECOGNIZED  TYPE  CARD  IN  DATA  1  20017660 

RETURN  20017673 

20017680 

-ADD  AT  BOUND  COLUMN  SPECS  2C01769Q 

OO  20  J=l, 4  20017700 

IO  =  NAHES(Ji  _  _  20  017.710. 

IF ( ID.EQ.0)  GOTO  20  20017720 

TO=ID*MC  20017730 

B NO J= BOUND (IOl  20017740 

TF(BNOJ.LT.l .E81  GOTO  19  20017750 

CALL  ERROR (40MMAPIN-- ATBNO  COLUMN  NOT  BOUNDED  IBDS/BDS  1  20C17760 

CALL  OUMP(IBOS(ll  ,IBDS(N80S1  ,2,BDUNDS(D  ,B0yNDS(_N8DSl,ll  _  ..2JJ01.7.77J) 

GOTO  20  20017780 

CONTINUE  20  Q17790 

CALL  SETBNO (IOl  200178C0 

CONTINUE  20017810 

GOTO  10  20017820 

....  _ .2JMU7J30. 

-BASIC  COLUMNS  AOOED  20017840 

IF ( TY°E2  *EQ»  POMS1  GOTO  60  20017850 
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DO  O  O  O  O 


99  40  J  =  1 , 4 

220178* 0 

I0=nftMc<:  f  jj 

2CC1787J 

iPv'TT.pa.O)  goto  uc 

2Qi,17880 

Tn=ro+Hc 

20C17B9U 

GAIL  SrT°'IR  (10) 

’ooi’orn 

<*n 

rnMTTMUF 

2 J Cl  T9 12 

GOTO  19 

2p:  ito?o 

r 

200179T0 

-ENTFo  KFY  cot UMN^  TF  a 

SUR  PPOBL-H 

20C17O4C 

«5: 

TP(L.r9.f')  GOTO  ’r 

2001 79c 3 

no  pc  i=i,u 

20  01 79FJ 

rn-»iAMPS(T) 

2 C  j 1  7970 

I F  (  Tn.FQ.O  >  Corn  ic 

2001,  9 ° 0 

I  n=  io-fMc 

20Q1 7990 

r»<T  =  MO<T(in) 

2Ci.18i.Cu 

TF(PKT.Fn.o)  GOT"  ^5 

20018010 

JOt|T=KCYS(P<T)  /  j  l  r 

20  r.  18020 

IF< JGUT.nG.O)  CALL  GrT<EY  (-jnijT) 

Fomoco 

can  setkf y (in) 

20C19C42 

<FYS(nKT)=:iaf  *T0 

2uClS£)50 

OOMT  TNUE 

20C18350 

GOTO  1C 

22  Cl 8C  70 

c 

29019080 

c - 

-045T C  BOW-COL  DATA  F"P 

FNTBY  IF  BOW  LOGTCALG 

20C 18290 

S  j 

90  7r  J  =  l,l* 

2CC181C0 

to=maheg<j> 

20C1811C 

IF(T0,G9.C)GOTn  7r 

’001 81?0 

''ILL  SfTnN'ttni 

20  '.18170 

70 

09NTf.|iJF 

20C18140 

GOTO  10 

20C18150 

r 

200181F0 

c— — 

-  S  pT  MULL  COLUMNS 

20918172 

HO 

00  Qu  J-1,4 

20018180 

T0rM6ieS(Jl 

20C181O0 

IF(T9.EQ.0>  C-OTO  Of 

?  o  r  i  a  ?  r  o 

IO=II)  +  HO 

201. 18210 

GILL  S  r  T  NN  N  ( TO) 

20l1 8220 

TO 

nMTTMur 

20C1B270 

GOTO  1C 

?0P18’A0 

c 

2  0  1  9  2  c  0 

c---- 

-GHEOK  too  INVERSE  AT  PNO  OP  TN°U'  T  ft°E  O’7  CKT0 

20l182F0 

95 

20  Cl  9270 

B  E  A  9  (  T  N°!JT  )  (9<J) ,J=1,MH) 

20018280 

IFfP^OPTLE  INOgT)  10, OF 

20  01 82°C 

Dran CTN°UT )  ( TOftS TP (J), 

OPTA(J) ,  1  =  1, «) 

20C183C0 

IP(FMOPILE  INPUT)  1C, 07 

22018310 

Q7 

IPa.NE.C)  OPA0  <T»'P||T) 

KFVS(.J)  ,  ’ET4<  J*M>  ,.|=i,l) 

20018720 

I  E  C  EM9F  ILE  INPUT)  10,04 

20C1 8330 

c— - 

-GU9rESGFUlL ,  SUPOPFSO  TNVE°T 

2CC19340 

95 

ITMINV=INVF/? 

2CC183EC 

CALL  4C«^T  fiOTCO  FPOM  r.TVEM  rNVFPSc  ON  IMptjT  > 

’nri83f0 

c - 

tmojt  PILE  coo  miooijt  jo  ov^oupTif  LAST  TMV"PSE 

22  91  837C 

"aOK^flOF  T h4°lJT 

20C18380 

naoKS^ace  in^ut 

20(  1  8.300 

IF(L.PO.D)  goto  1' 

2CH94GC 

OaC K^ourr  INPUT 

2C 91»41C 

GOTO  in 

20  Cl  8422 

c 

2C (  1  84  30 

n-61) 


ENTRY  INMAP 

C-.— REIOS  MAP  CARDS  FROM  INPUT  TOFlLE  TMAP  ANn  TFPMTMaTPc' 
CALL  MSSGI40HINMAP  LOOKED  FOP  MAP  TERMINATES 

00  200  1=1,1000 
READ (5,2)  CARD 
I F ( ENOFILE  5)  201,190 

199  CONTINUE 

Z  F ORMAT ( 8A1 0) 

TF  (CARO(l) «EQ.ENDER)  GOTO  201 
rFCCARO(l) .EQ.REWTND1  GOTO  20? 

MRITE(IMAP,2>  CARO 
1999  CONTINUE 

200  CONTINUE 

“ENDS  THE  ^A°OUT  CARDS 

201  MRITF(IMAP,2)  ENDFR 

RETURN  | 

202  REMIND  IMAP 

G^O  i90q^  (40HINMAP  DELETED  EXISTING  MAP,  IF  ANY 
END 


200184A0 

20018450 
20018460 
20  Cl  8470 
20018480 
20018490 
200185CO 
- -201145.10 
20C18520 
20018530 
20018540 
20018550 
20018560 
20018570 
20018580 
20018590 
200186C0 
20018610 
20013620 
20018^30 
2CC18640 
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SUBROUTINE  MAPf)UT<9) 

-GUR  VERSION  APPH.-2C-71 

-OUTPUTS  THE  FTNAL  "ASIS  F 09  m*ptn  USE 

COMMON  /NAMPS/  MF(lQO) 

COMMON  /PASTS/  ,  acT«S<i:il)  ,KFYS<1G1> 

COMMON  /A/  ALPHA(lCl)  /B  /  RET*  ( 1 1  1)  /C/  GAMMA(lQl)  /9/  BELTA(lCl) 
COMMON/TXX/TX (  1  00  )  /XX/  X(100) 

COMMON  / INPJ I / 1 N°UT  , T N°UTM  » I N°U T N 
COMMON  /files/  1*1, Tap, IMAP 

COMMON  /I/  M,l,MP|  ,MofNT,ICOST,TC,IPHaSF,J^HS,IPI 

COMMON  /LIMS/  MaxTPY,NTPY, JNCOPP  ,NC°Max 

COMMON  /CORE/  J*PFJ( 1 01) , JA(lOl) , J*K(1 Ll ) , AJ Cl IOC ) 

COMMON  /OAPAMS/  ™lYf  ITNTNV,TNVF,K1,K2,K7,K4,KS 
COMMON  /POUNns/  OOUNOS<10 0 ) « IBOS <1CC> , NBOS 
C9UIVALENCF  ( MA  P<FY , *  J) 

OTMPNSIOM  MAPOA  S  ( 1  0  0  )  ,MAP  BN9  (U  >  ,  MA®  NL  L  (  1  3  )  ,  H*P<F  Y  ( t  3  3  3  ) 

Pr*L  B ( 1 ) 

■'ALL  MCSSG  (4CHMA°ouT  ) 

OFHTMO  TMAP 
JNCODF^O 
00  I=l,MC 

IP(MflMF (T) .MF.2)  CnT9  50 

WRITE ( I  MAP , 1 1  I 

FOPMfti ( lQMoaSICRowS  ,110) 

CONTINUE 

*  =  INLL  =  It’NO=IOAS  =  TKTV=0 

--CLr«p  SOLUTION  S°*rr 
M v  a  Pc  =  T NO J  T  M  ♦  NR  p<? 

on  f.c  i=i,nvaps 

T  X  (  T )  =  0 
x (T) =  3 . 

MPl ;MCt 1 

no  uc  I  =  M° i ,  n t 
JCOL=I-MC 

JrMOO ( N  AMF ( T ) ,10) *1 
G9TO( 10 ,4& ,20 ,*0t  *5) * J 

TNLL  =  TNLL«-1 
MA°MLL  (  INLL)  =  JCOL 
SOTO  4 Q 
T  RAS  =  T  BAS* 1 
M  5DpftS  (  TRAS)  =  JCO(. 
no  10=1, M 

TP ( TRASTS1 I®) /l C D .FO. T)  GOTO  25 

rONTTNUE 

<=K  +  1 

T  X  (K) = JCOL 
X (K) =BETA( IP) 

GOTO  LQ 

TRN0=IBN0tl 
MA°nM0(IRN0)  -JCOL 
<=<♦1 

IX(X)=JCOL 
V  (  X  )  = BOUND  (  I  ) 

D-6T 


20!  1  *66£ 
2001*650 
2001 *670 
2  0  1  8  6  P  0 
23  2 1*69 J 
2001*710 
20C1P71C 
20  C 1*723 
2311*730 
2021*750 
20  C 1 *750 
2001*760 
2021*770 
20L1*7°C 
2001*700 
2001*800 
20018*10 
2001*820 
2001***0 
2oni**40 

2001*8*3 
20  0.18860 
20018°  70 
•>001*8*0 
2C 318*90 
2001*92,0 
2CC18B10 
20C18920 
2001*970 
2001*940 
2CC18960 
p 0  0  1  *  9f  0 
20  C 1*97., 
20  01*980 
20  01 *9° C 
P0  C 1 90  00 
20019010 
2  C  C 1 9  Oj  2  0 
200190*0 
20019040 
2CC19050 
23019063 
20  C 190  70 
70f’nopo 
23 01 9093 
20219100 
20019110 
200191P0 
20,?191*3 
20019140 
20019160 
20019160 
20219170 
200191 °3 
200191°C 
*0019200 
20 J1921C 


35 


36 

37 


40 


2 

3 

4 

5 

6 
7 


598 

595 

600 

601 

SO  2 

603 

604 
C— - 

701 


702 

700 


GOTO  40 

iKEY=iKem  .  ..  . 

MAOKEY(IKEY)=JCOL 

00  36  IR=1,L 

TF( KEYS  (TR)/100,EQ.T)  GOTO  37 

CONTINUE 

K=K*1 

IX(tO=JCOL  _  . . . 

X(K)=8ETA(IR«-M) 

CONTINUE 

IF(IBAS.NE.O)  WRITE ( IMAP*  2)  (MAPRAS (I )  , 1=1 , IBAS) 
IF(TRNO.NE.O)  WRITE ( IMAP, 3 >  (MAPRNO (I) , 1=1 , I8ND) 
IF(INLL.NE.O)  WRITF ( IMAP, 4 )  (MAPNLL (I) , 1=1 , TNLL) 

IF<IKEY.NE.O)  WRITE!  IMA®  ,.6)  (MAPK£Y(I)  ,.1=1 , 15E1)  _ 

FOPHATCIOMBASIC  ,4110) 

FORMAT (10HATBNO  ,4110) 

FORMAT (10HNULL  ,4110) 

F  ORHAT ( 10MEND  ) 

FORMAT  C 10HKEY  ,4110) 

FORMAT (10HINVERSE  )  .  _ 

TF(MOQ(K3,2) .NE.C)  GOTO  598 

PLACE  BASIS  ON  ENP  OF  INPUT  TAPE,  AFTER  ANY  THERE  ALREADY 
MM=M*M 

WRITE (INPUT)  (B  (T)  ,1=1, MM) 

WRITE (INPUT)  ( I  BASIS (J) ,RETA(J) , J=1,M) 

IF(L.NE.O)  WPITE(TNPUT)  (KEYS(J)  ,8ETA(J*M)  , *1=1, LI . . 

WRITE ( IMAP, 7 ) 

WRITE(IMAP,5) 

IF(MOO(K3,5) .NE.O)  RFTURN 
WRITE(6,601) 

FORMAT (*0CU»RENT  SOLUTION*/*C  BASIS  VALUE 

WPTTE  (6,602)  ( IBASIS  (I)  ,  BET  All)  ,  B  ( I®I* ItI)  ,  I  =  1,M)  ... 

FORMAT (112, 2E12, 4) 

.WRITE (6,60  3)  (KEYS(I)  ,BETA(I*M)  ,I=1,L) 

FOPMAT(*0  KEYS  VALUF*/(I12,F12.4) ) 

WRITE(6,604)  (I  X ( I ) , X (I) , 1=1 , K) 

FORMAT (*OSOLUTION  VECTOR,  PACKFO*/ ( 112 , E12 .4) ) 

•PRICE  OUT  REMAINING  VECORS 
WRITE(6,701) 

FORMAT (*OBEMAINING  VECTORS*) 

DO  700  J=MP1 , NT 
JTYPE=MOO(NAME( J) ,10) 

IF(JTYPE.EQ.2)  GOTO  700 

CALL  IN(J,GAMWA,1)  .  _ 

0JVAL=00TS(M,9(IPI) , GAMMA) 

WRITE (6, 70 2)  J,OJVAL,NAME(J> 

FORMAT (112, 12X, El  2,4, 112  ) 

CONTINUE 

RETURN 

END  . 


20019220 

_ 20515235. 

20019240 

20019250 

20019260 

20019270 

20C19280 

_ 20C1929O 

20019300 

20019310 

20019320 

20019330 

20019340 

_ .20 (11 9.359 

20019360 

20019370 

20019380 

20019390 

20019600 

_ .20  019410 

20019420 

20C19430 

20019440 

20019450 

20019460 

_  25019474 

20019480 
20019490 
20019500 
20019510 
•PI*) 20019520 

_ 204195.34 

20019540 

20019550 

20019560 

20019570 

20019580 

_ 20049590 

20019600 

20C19610 

20019620 

20019630 

20019640 

_  20019650. 

20019660 
20019670 
20019680 
20019690 
20019700 
_ 25019710 
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SURPCUTINE  °TVOT  (  T°OW,B,AL  pH  ft ) 

C - Dn/"T  AL°HA  INTO  «  POW  IPOW 

COMMON  /nAMF<;/  NAMC(i£;3) 

COMMON  /PAST*?/  T^ASIS  €101 )  ,KEYS  (  101 ) 

COMMON  /STATE/  JPOS 

COMMON  /T/  M,L,MPL  .M^NT,  ICnST,TC,lPHASF,JPHS,TPT 
COMMON  / TO L S /  HJTOL ,7FPO,PIVT0L ,^TOL,PFPTOL,nFPTOL 
OOMMON  /PA9AMS/  T)*AX,  ITNTNV,  TNVF  ,Ki  ,K2,K  *,  K4,K5 
PEAL  AL  °HA  <  1 )  ,0(1) 

N°<  T ( I ) =M00(NAMf( T) ,  100090 ) /I  3 

- check  ALPHA  HAS  A  POW 

TF(TPOW.FQ.O)  GOTO  qr 

- MOPMALTSE  ROW  I°OW 

1  CONTINUE 

TOPr,  =  M*  (IROW-l) 

°IV=1. 

IF  (ALPHA!  IPOW)  ,FO,  i ,  p)  GOTO  0(5 
I E (  AOS ( AL°HA (TPOW)  ).GT.PIVTOL)  GOTO  E 

CALL  E°°OP (40HPIVOT — PIVOT  LESS  THAN  “IVTOL  ) 

CALL  ESCAPE ( 0 ) 

6  ° IV  =  1. 0/ AL°HA ( TPOW) 

00  1C  1=1, M 

1  J  0  (IOPC,  4-1)=  R  (  TOPS  ♦  T )  *  PI  V 

- PIVOT  Op  FOP  POH  T,  LEAVE  ALPHA. 

20  00  ?G  1=1, M 

I  E  (  T.EO.IPOW)  GOTO  TO 
I E (  ARS (  ALPHA ( I) )  .LT  .ZE90)  GOTO  3j 
JO°G  =  M*  (T“ 1 ) 

PIV=AL°HA(I) 

no  ps  j=i,m 

25  p  (  JOPG  +  J)  =  R(  JOpr,*J)-DIV  *R(IO?G  +  J) 

33  CONTINUE 

qctijpn 

- F I  NO  RE<5T  POW  TO  PIVOT  AL°HA  INTO  q 

9G  CONTINUE 

PTV=PIVTOL 

no  inn  t=i,m 

C - oheck  FOP  EPFF  LOGTCALS 

JP= In A  $TS( T) /IOC 
IE( jp.ne.JP0S)  goto  og 
I POH=I 
GOTO  1 

93  IE(Jo.MF.O)  GOTO  100 

C - 7E°0  OASIS  ENTPV  AT  I 

OIVOT=AOS( ALPHA (T) ) 

IF(OTVOT.LT.PTV)  GOTO  log 

pIV=OTVOT 

IPOW=I 

100  comttnije 

TP( IPOW.EQ.o )  GOTO  is0 
C - REST  POW  TO  Ago  tuts  COLUMN  TS  I^OW 

101  CONTINUE 

TOASTS ( T°3W) = 10 0*J°OS*I BASIS (IPOW) 

GOTO  i 

C - the  rOL  UMN  I  s  MO  GO(io  ANYWHEP'  AT  PPESENT,  OPO°  FROM  9ASTC  SET 
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2G £19723 
20019730 
20019740 
20G197SC 
20019760 
20019773 
20  Glq7fl0 
20C197QQ 
20  0 1 98  CO 
?(i  0 19ft  1  J 
2CC1982C 
20019830 
20C198A0 
2C  Cl  9*53 
23019860 
20013870 
20019860 
20019890 
20C199C3 
20019910 
23  019920 
20019930 
?0£199«O 
20319953 
20G1P960 
20  C 19970 
2C  319983 
20019903 
23020000 
20020010 
? 0320023 
23320030 
20C2C04C 
20020050 
20„2uC6J 

2C  0200  73 
2002QCPC 
20C23090 
23323103 
2332311G 
20020120 
20020r»0 

2332J1AJ 

20023150 
2C  020160 
2DP201 70 
20023183 
2CC201PQ 
20020200 
’0020210 
23  3?j2?3 
20020230 
20020240 
20C20250 
20020260 
2032 J270 
20C202"0 


150  CONTINUE 

call  S  E  TON  8  (  -  jp  os )_  _ 

TF (MOO <K3, 13) .NE.O)  RETURN 
W‘?ITE(6,1C1)  JPOS 

151  FORMAT  ( 1H  , 'PIVOT  npnpocr)  COLUMN*  16  ) 

RETURN 

END 


oo  vio  o  o  o  o  o  o  no 


S'JRPCUTINE  °P  IMflL  ( p) 

C - C,UC  VISION  8PPIL/7I 

PflMMON  /MOVE  G/  i-MrT«,qM0j,nM4V,  “PMLEP ,DUALEP 
COMMON  /TCLS/  0 jtpl, 7ep^,pivthl , ^tpl .oeptol .heptol 
r  CMMON  /ST  A  TT  /  Jdpp,TPOW,  JCnLjJ^URITPK'jNPFvRNPTF.NnjS 
COMMON  /Dfl PAMS/  T^AX, TTNINV, TNVE,K1,K2,K7,K4,K5 
COMMON  /LIMS/  MftVTOY,NTPY,.JMr;0PP,NCPMlVX,NSCft*4 

common  /cope/  jaorj(ioi),j4(j:ji)  ,jaK(iri),aj(100C) 

COMMON  /!/  m  ,  L  ,  m°L  t  Ho  ,NT  ,  ICCCT  ,  TC,TPHASE',JI?HS,  I°T 

common  /a/  iiBHMrn  /r/  betau  r  /c/  gamma<iqi>  /n/  telta(ioi> 
common  /basis/  ioacis  (ion  , keys  ( ion 
common  /ojs/  oj(irc) 

COMMON  /N4  NFS /  N6MF(ica> 

COMMON  /PMS/  PHS(tOO) 

PP4L  0(1) 

logical  oasTr.aTONp 

ITP(T) =MO0(IPaST^(T) ,10) 
aTON0(I)=MO0(NaMP(T) ,10) .  EO.1 
N°KT  (  J )  =MOO  (  NAMF ( J)  ,100000/10 

0 

CALL  MESSG (4CHPPTMAL  ) 

0 

TPOW  =  JCOL=NPr.)=NnrG=f 

call  st4tjs(40hpptmal — begin  ) 

TO  0  C  CONTINUE 

- EIN0  THE  COST  POM 

IC=TCOST 

IE  (  IPHaSE.EQ.l  )  TC=  M 

- KEEP  PH4SE1  °0ST  yep n  TN  PHASE  2 

- PH4SE  1  COST  IS  EPEE  in  °HASE  1 

nasTs  (M)sioo*  ( I"  a  sts  (M)  /i:i) 

TE(TPHaSE.EO. 1)  IPaSTS(M) rIBfiSTS 

- PICK  (JP  NEW  PI 

IPI=1*M*IC-M 

- CUTOEE  FOP  OEGENSPACY  “EJECTS 

NQEGLMiO 

*****oasic  cycle  oe  ?  phase  l®*********** 

l  I T®N  = 1 ♦ ITPN 

T  HE  Ta  =  BNOJ  =  I P  OH  =.)COL  =  JOUT=  JPOS=  J 

- LOCATE  PIVOTAL  COLUMN 

10  CALL  COLUMN (  JCOL,®) 

I E (  JCOL .Nr, C )  GOTO  SQ 
raLL  XCHEC<(EHPPIMaL, 4HQU I T , 0 ) 

- OPTIMUM,  CHEr <  none  a  BHaSFl/  ®HASF2/  NOEEaS 

TE (  T°HASE.E0.2)  GOTO  2000 
I  F  (  8PS(BETfl  (IC)  )  .LT.CTOL)  GOTO  Its.  C 
C8LL  MO  EE8S 
PETUPN 

- STEP  op0CEr JPE  EOP  in  COPE  COLUMN  JCOL 

SO  CONTTNUE 

C - LOCATE  COLUMN  POSITION  ANO  BOUN" 

jpos  =  ja(j^oL) 

BNOJ  =  RO'JNO  <  JP  OS ) 


2002036 J 
2C12337Q 
2  3  C  2  0  3  A  0 
20C2C3OC 
20T20400 
20G2J410 
20020420 
20C2J430 
2C  020440 
2002J450 
2CC2046C 
2GC2C470 
200204 ft 0 
200204°: 

20:205:0 

2CC2G51C 
20C20S2C 
20020530 
20L23540 
20C20S50 
2 OC20560 
2  C  r  2  u  S  3  0 
2C3205ftG 
20t205°C 
2C  C  2  06f 0 
2  0  C  ?  j  6 1 0 
20u?jS20 
2CP2063C 
2CC2CE40 
200206*0 
20C2J660 
20020670 
20C206ft0 
20020600 
20020700 
20C20710 
20  C20720 
20C2071G 
20020740 
20C20750 
20C2376G 
23020770 
20020760 
20 "2G7°3 
20020600 
20020610 
2CC2C620 
20020830 
20020040 
20020AEC 
2CC2C660 
200?0«70 
233208*3 
20  3206Q0 
20020BC0 
20C2091C 
2C'23°23 
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60 


61 

62 


63 

64 


65 


70 


75 


80 


LOCATE  PIVOTAL  ROM  IRQ*  AMD  STEP  THEtA- 
CALL  ROHCTHETA,  IPOW,  JCOL,  ITYPE,B) 
IFC  IROH.ME.O)  GOTO  60 
CALL  X CHECK ( 6HPRTMAL  *  4HQUI T ,  B) 

CALL  UN8N0 
RETURN 


20020930 


20020950 

—20-020960 

20020970 

—20020980 

20020990 

20021000 


DEGENERACY  AND  PIVOT  CHECKS 

IF (  ABS  (ALPHA (I ROW) ) .GE.PIVT0L)  GOTO  65 

IF(NREJ.LT,2)  GOTO  62 

WRITE (6 ,61 1  JA(JCOL) ,IR0W,  ALPHA ( IR0M1 , BET  A ( IRON) 
FORMAT  (20X,*REJECLTED  COLUMN*  L5*_RQH*L5*_ 

CONTINUE 
JAREJ(JCOtl=l 
NREJ  =  1+NREJ 
IF(NPEJ.NE.5)  GOTO  64 

RE-INVERT,  CLEAR  REJECTS  AND  CONTINUE 

itninv=itrn 

CALL  INVERT ( B) 

DO  63  J*l, JNCORE 
JAREJ( J)=0 
CONTINUE 

IF(NREJ.LT.IOO)  GOTO  30 

CALL  ERROR (40HPRII1AL— TOO  MANY  REJECT  .YECTDRfL. 


20021010 
20021  020 
20021030 
20021040. 
20021050 
gnn?iH6n 
20021070 
.20021680 
20021090 
2002110* 
20021110 
?nn?i i?n 


20021130 

-20621140 

20021150 

20021160 

20021170 

20021186 


TRY  ENDING  IF  PHASE  2 

IF(IPHASE.Ea.2)  GOTO  2000  _  _ 

CALL  ESCAPE(B) 

IF (  ABS (THET  A*0 J< JCOL ) > .GE.CTOL )  GOTO  70 

IF(NOJS.EQ.l)  GOTO.  76  _ _ _ 

IF (NDEG.GE.NOEGLH)  GOTO  70 
NOEG=lTNDEG 
J AREJ ( JCOL ) = 1 

GOTO  30  . . . 

CHECK  EJtCEED  BOUND  ON.  JPOS-r--.  XJPQS.  J10VES  JJD-QR  JQ£F.  -BOUND 
CONTINUE 

CALL  X CHECK (6HPRIHAL,3HEND,B) 

IF(  ABS(THETA)^ZEPO.LT.BNOJ)  goto  80 

ITYPE=l  .  . 

SUPPRESS  PRICING  NT XT  TINE 

NREJ=1  _.  .  .  _ _ _ 

JOUT=0  KILLS  STATUS  PRINT 

JOUT=0  .  .  .  _ 

IF ( THET A.GE.0.0)  GOTO  75 

XJPOS  CONES  OFF  BOUND  ,  THETA  NEG.  .  _  .  _ 

CALL  SETBNO (  -JPOS  ) 

THETA=  -  BNOJ  ..  .  .  . . -  ...  _ _  _ 

GOTO  90 

XJPOS  GOES  TO  BOUND  _ 

CALL  SETBNO(  JPOSI 
THETA  «  BNDJ 
GOTO  90 


PICK  UP  REJECTEO  COL,  C  OR  KEY  CHANGE 

CONTINUE 


20021190 
_  ..20621200 
20021210 
-  20821220 
20021230 

_ 20021240 

20021250 
_  .20021260 
20021270 

_ 20021280 

20021290 

20021310 

.  20021320 

20021330 

_ 20021340 

20021350 

_ 20821360 

20021370 
—  20021-380 

2002139b 
.  -20821480 
20021410 

_ 20021420 

20021430 
..  20821440 
20021450 
20021460 
20021470 

_  20021480 

20021400 

28021500 
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c 


r. 


c 

c 


c 

c— 

11 

C 

C  — 

IQ  0 

c — 


12 


14 

C 

C  — 

C 

C~ 


C~ 
C  — 


jout=irasis<  trow* /icr 
IE(TPOW.LF.M)  goto  *oo 
*<  F  Y  CHANGE,  CORRrcT  REJECTED  COL 
JOUT=KEYS( IROW-M)  710  “ 

MqVPKT=HOO(  KEYS(TPOW-H) , 130) 
r p ( mpvpkt. GT . 0) Goto  11 
CHANG"  KEY  FOOH  JOUT  TO  JPOS  IN 
<fy5(  i°ow-m)  =  i":r*J0os 
c  all  set  <ey<jpos) 

CALL  SFT  KEY  (-JOt)T) 

■  <;FT  P4RAMS  FOP  KEY  STE° 
C0ST=THETA 

.ejijoopfss  SPICING  NEXT  TIME 


AND  CHECK  ESSENTIL  PACKET 


NDN-EScFNTTAL  °KT 


N°E J=1 


G  0T  O  RC 


_.rSSFNTTAL  PACKET,  CHANGE  JOUT  FROM  KEY  TO  RASIC  IN  NEWROW 
CALL  KEY  CH( JOUT, NEWSOM, B) 

I  PON  =  NFWROW 


--NORMAL  PIVOT  OPERATION 
CALL  °IV0T (IRON  ,R,  ALPHA  ) 

--UPDATE  KEY  OASTS  COUNTS  FOP  JPOS  AND  JOUT 
jonSRK=NPKT( JPOS) 

IE( JPOSPK.FQ. 0)  GOTO  12 
KEYS(JPOSPK) =  KFYS (JPOS°K) *1 
JOUTPK=NPKT( JOUT) 

TF( JPUT.GT.NT)  GOTO  "4 
I F ( JOUT°K. EO • 0 )  GOTO  94 
KEYS ( JOUTPK) =  KFYc(JOUTPK) “1 
CONTINUE 


•--CHECK  JPOS  COMING  OFF  A  ROUND  ( TM£T A, l E . r  > 
cosi=THETA 

IF (ATRNO(J°OS) )  CP^ I =8ND J^THET  A 

_ CHECK  JOtIT,  MAPK  NFH  ANO  UNMARK  OLD  BASIC  COLS 

JO'JT  =  IPASISt  IPOW  )/100 

T  R A  S IS ( TROW)  =  l(.C*JPOS  +  M00(IBASTS(IP0W)  »100> 

CALL  S E T ON R (  JPOS) 

CALL  SET8NR<- JOUT) 

_ TTYDF=2  TM“LIES  JOUT  OFF  ROUNO,  =3  IMPLIES  JOUT  TO  ROUND 

TF( ITYPF.EQ.  3)  CALL  SETBNO(JOUT) 

_ P^L  EASE  REJECTED  VECTORS  AFTER  A  PIVOT 

IF (NRF J^NOFG . F0 .01  GOTO  R0 

NREJ=NOFG=0 

00  IS  1=1, JNCOPF 


_ <;TEP  qcjA  ANO  CPNOTTION  COMPLETE  PR0BI.FM  CGUR  ROMS  ARE  LAST) 

IS  J  APE J ( I ) =0 

RO  OO  100  1=1, M°L 

OET  A ( T ) =RE  T  A ( I ) -THETA*AL°HA(I) 

1Q0  CONTTNUF 

TP ( TTYPF.NE. 1 )  PFT  A ( IRON) *  EPS! 

00  110  1=1, 1 

I c ( TT° (I).EO.T)  GOTO  110 
TE(RETA (I) ,SE.C  .  : )  GOTO  110 


20G21S10 
20C21S2C 
20021530 
20021540 
2G  02155G 
2C  021560 
20021570 
20L215C0 
200215R0 
2C0216C0 
20021610 
2C02162C 
20021630 
20021640 
20C21660 
20U2166o 
23021670 
2002161C 
20G216R0 
20021700 
20021710 
20021720 
20021730 
20021740 
20C2175G 
29G2176C 
2002177C 
20 0217 CO 
20  u217RQ 
20C211GO 
20G21H0 
20021120 
20  '^218‘*0 
20o21143 
20C218S0 
20021160 
20 G2117G 
20C2HC0 
20C21BOG 
20021000 
23321R13 
20C21923 
20021R30 
20G21R40 
2JC21R*G 
2CC21RFG 
20021070 
200?lRO0 
20022003 
20G22310 
20021R10 
20022020 
23022030 
20C22040 
2PC22050 
20022060 
23022G73 
200220*0 
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8ETA(I>=0.0 
110  CONTINUE 

00  123  1=1, L 

IF(8ETA<I*M> .RE. 0.0)  GOTO  120 
BETA(I*M>=0.  0 
120  CONTTNUE 

CALL  STATUSC40HEND  OF  PRIMAL 
GOTO  1 

*****ENO  OF  BASIC  PRIMAL  CYCLE**** 

- OPTIMUM  PHASE1  TFPMIMATTON 

1000  CONTINUE 
CALL  OPT1 
IPHASE=2 
9ETA(H>=0.0 
GOTO  3000 

- OPTIMUM  PHASE2  TEPMIMATION 

2000  CONTINUE 
CALL  0»T2 
C 

RETUPN 

END 


20022090 
. . . ?nn??i  nn 

20022110 
.  __  .  .  20-022120 
20022130 
20022140 
)  20022150 

_ _ 20022160 

20022170 

20022180 

20022100 

20022200 

20022210 

_  _  20022220 

20022230 
20022240 
20022250 
_  20-022260 
20022270 

_ _ 20022280 

20  0222Q0 
20022300 
20023310 


r 

c 


C 

C 

C 


C- 

6 

C- 


c 


888 


14 


15 
C  — 

16 


20 

C  — - 


25 

26 


SUt'°OUTINp  ®nw  (TMPT&,I^nw>jrr)Lt  TTY»E,H) 

r,‘jr>  yeosiON  apoh  ?~/7i 
f inos  step  to  bounc  awn  rouno  fn^ounte pfs 

common  /!/  M,L,M®L*Mr,NT,ICnST,Tr,TPHASE»JPHS*I°T 

common  rcopF/  ja°e .mol)  iJMin)  ,j*k(1l1i  ,  ajucm 

COMMON  /OASIS/  TOASTS (1Q1) ,KFYS < 101) 

OCMmon  /NAMES/  NAM<-(1C0> 

Common  /«/  (|  OHJ  (itl)  /B/  RFT&d  .li  /0/  SAMMAtlOl)  /0/  OELTA  (101) 
COMMON  /TDLS/  0 JTOL , 7FBO,PIVTOL , CTPL»PFPTOL,DEPTPL 
LOGICAL  PAST  rtA T°MO 
pEAL  8(1) 

Tto(.i)  =MOD  ( I  PAS  IS  <  J)  ,10  0) 

N°<  T ( j ) =M00(MaMC( j) ,*COOOO>/10 

aTBNncnsMmtNflM^fn , iot.eq.’ 


TRANSFORM  SELECTFC  COLUMN 
J»OS  =  Jfl(JCOL) 

LOSO  COLUMN  TO  OFLT&  (MAYBP  NULL  pAC  K£  T> 

JOpG=  m*jcol-m 
00  5  T  =  1, M 
OFLTa(T)  =  ajijnpr.4-1) 

NULL  ELEMENTS  in  l ours  ALPHA  FOP  PACKET  ®0WS 
00  6  1  =  1,  L 

*L°Ha(T+M) so. 

PACKET  80W  MBS  a  UNITY 
jo<T=  NDKT ( JpOS ) 

IF  (JP<T.EQ.G)  GOTO  16 
ALnHA ( JOKT+M) =1 . 

FTNQ  <ry  A  NO  <OPG 
KOpG=KPYFN0< J°<T) 

IF(*n9r,.NE.O)  GOTO  IU 

rHLL  EPPOP  (4CHPOW —  Kr Y  NOT  IN  (*.«-»£  ) 

WOlTrjG.qoft)  JoKT,J00L ,J°OS 

FOPMftT  ( 1H+ ,4 L  K  »  *°  APKET* 15 *  ®0FTTlnN*I8*  C3LUMN*I5) 

PALL  ESOa®E(p) 

IPOW=0 
oct u°N 
CONTTN1JF 
K0PG=M*<O9G-M 
00  IF  1  =  1, M 

OElTA(I>=OELTA( I) -AJ(KOPG+I) 

-TPANSFOPM  PEnuCEO  COLUMN  IM  LOME’  ®L  PHA 
IOPG=l 
00  2C  T  =  1,M 

ALPHAd)  =  OOT(  M,  °  <IPPG>  ,  OELYA) 
ropG=ropr.f  m 

-SUM  PACKET  BASIC  EmtoiES  TO  ALPHA  ELEMENTS 
If(L.EQ.C)  SOTO  ?f~ 

00  26  T=i,M 

18  =  I 8ASIS( I ) / 10T 
TF(ia.GT.NT)  GOTO  ?S 
K  =  NPKT (  18  ) 

IF(K.PO.C)  GOTO  ?r 
K=K*M 

ALdMA(K)=BL°MA(K) -ALPHA (I) 

OONTTNUE 

continue 


2002232a 

20022340 
20022350 
20322360 
20022370 
200223*0 
2G02?38C 
2C  :224L<3 
ZQCZZU1Q 
2CC22420 
20022430 
20322440 
20022450 
20  C' 22460 
20  022473 
201224*0 
23022480 
20022500 
20022510 
23C22520 
23022530 
2CC22540 
20022550 
2C  022560 
2CC2257C 
200225*0 
20022580 
20022600 
20022610 
2C  022620 
2CC  226.30 
20  D22643 
20C  22650 
29022660 
20022670 
20022680 
20 : 226 PC 
2CC227G0 
20  C2271G 
20022720 
2002273C 
20022740 
20022750 
20022760 
20922770 
2002278C 
20022700 
2CC2280Q 
23CZ2*10 
2002282C 
2002283C 
20022840 
20C22853 
20022860 
20022*70 
200228*0 
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THETA=1.E35  ...  _ 

IPnw  =  0 
TTYPE=  1 

IF {  ATBNOIJPOS)  )  GOTO  100 

•T(JPOS)  ZERO,  DJ  NEGATIVE  - INCREASE  X(JPOS) 

00  50  1=1, MPl 

IFII.LE.M  .END.  ITP(I).FQ.3>  GOTO  50 
IF  I  ALPHA I  II  .LT  .-ZERO)  GOTO  30 

IF  I  ALPHA d ) <  GT •  ZFPO)  GOTO  10 

GOTO  50 

-POSITIVE  PIVOT 
STEP  =  SETA (I) /ALPHA (I) 

IF {  STEP  .GF.  THFTA  )  GOTO  5C 

THETA  =  STEP 
TPOH  =  I 
ITTPF  =  2 
GOTO  50 

-NEGATIVE  PIVOT - (  BOUND  I JOUT) .GE. BFT A (I )  ) 

JOUT  =  IBASTS (Tl /ICO 
IF(I.GT.M)  JOUT=KFYS(I-H) /10C 

STEP  =  (  BETA  ( I )  -  BOUNDtJOUT)  >  /  ALPHA(T) 

IF  C  STEP  .GE.  THFTA  )  GOTO  5 

THETA  =  STEP 
IRON  =  I 
TTYPE  =  3 

CONTINUE 
GOTO  200 


OJ  POS.— DECREASE.  X(J“OS) 


-X(JPOS)  AT  BOUND  DJ  POS.— OECR 
DO  150  1=1, MOL 

IFd.LE.H  .ANO.  TTPm.EQ.3)  GOT 
IF {  A L PHA (I  > . L T .  -  ZERO  »  GO 
IF (  ALPHA  II). GT.  7FR0  )  GO 
GOTO  150 

-POSITIVE  PIVOT - (  DOUNO (JOUT ) 

JOUT  =  IBASISID/100 
IFd.GT.H)  JOUT=KFYS (I-M) /100 
STEP=  (  BETA (I)-flOUND( JOUT)  )/( 
IF (  STEP.  GF  .  THETA  )  GOTO 
THETA  =  STE® 

IPOH  =  I 
TTYPE  =  3 
GOTO  150 

-NEGATIVE  PIVOT 
STEP=  BET  A 1 1 ) / I  -ALPHA (I)  ) 

IF!  STEP  .GE.  THFTA)  GOTO 

THETA*  STE® 

TROW  =  I 
ITYPE=  2 
CONTINUE 
THETA*  -THETA 

-PIVOTS  ON  2,3,  2  DPTVES  JOUT  TO 


GOTO  150 
GOTO  130 
GOTO  110 


BET  AU) 


-ALPHA (I)) 

150 


MOVES  JOUT  TO  BOUND 


200  RETURN 
END 


20022850 

_ ZJUIZ23SUL 

20022510 

20022520 

20022530 

2Q222950 

20022550 

_ 2M221M 

20022570 
200.22980 
20022990 
....  20023000 
23023G10 

_ 2202311211 

20023030 
20023050 
20023050 
2Q023060 
20023070 
...20023080. 
20023090 
20023100 
20023110 
.  20023120 
20023130 
._20112315.IL 
20023150 
20023160 
20023170 
20  023180 
20023190 
..  20023200 
20023210 
2QC23220 
20023230 
20023250 
20023250 
_  .20023260- 
20023270 
20023280 
20023290 
20023300 
20023310 
2 02  2  3.3 2D 
20023330 
20023350 
20023350 
20023360 
20023370 

_ 20  02-3181) 

20C23390 
.20023522 
20023510 
20023520 
20023530 
_  20223650. 
20023550 
2Q023560 


A  10 


C'JCPnuTTNE  SFTTNOfT) 

COMMON  /It  M,L,  Mpl  ,MC  ,NT,  ICOCT  ,  I C , T °H A CF , J»HS ,  T*»T 
COMMON  /NAME S/  KHME(10Q» 

<  =  3 

100  CONTINUE 

I F ( I )  1,2,3 
1  J=-T 

Tp,(.l.lF.NT)  NAHE<J)=1  c*  ( N  AMF  <J»  /tC)  H 
PETU°N 

TP(T.LF.MT>  NSNE(T)=10*(NANE(I>/10)*K 
PFT U°N 
C 

p  NT ° V  CCTON^ 

<  =  ? 

coin  i:o 
c 

FNTOY  sptnnn 

«-c 

COT  n  10J 
C 

fNtPY  spT<Fr 
<  =  4 

c.oto  too 
F  NO 


23  0?  34  70 
20023400 
20023400 
2C  02*500 
2C?2*510 
20023620 
2CC2353G 
20023540 
2C023660 
2C.2356J 
2CC2357C 
200235*0 
2CC2350C 
20323600 
23023610 
2 J  023620 
20023630 
20023640 
20  02365C 
20023660 
20C23670 
2C  023680 
200236Q0 
20  C237C0 
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SUBROUTINE  SETUP 
-GU8  VERSION  APPTL/71 
INTEGER  PKT,PKT1 

COMMON  /INPUT/INPUT,TNOUTM,INPUTN 

/LI MS/  M AXTPY , NTRY , JNCOPE  * NORM A  X  f  NS CAN 
/I/  M,L,MPL,MC,NT, ICOST, TC,TPHASE,J°HS,IPI 
/A/  ALPHA ( 101 )  /R/  BET  A ( 1  OH  /C/  GAMMA (101) 
COMMON  /POWTYP/  IPOMTP(lOl)  /NAM CS/  NAME(IOO) 

COMMON  /BASTS/  IBASIS (101 ), KEYS (  1C1) 

/CORE/  JARF J(101) ,JA( 101) , JAK < 1 C 1 ) , A J { 1 000 ) 
/PARAMS/  TMSX, ITNINV,TNVE,K1,K2 ,K3, K4.NWAJ 
COMMON  /PHS/  PHS  < 1  CO ) 

COMMON  /TOLS/  OJTPL,ZERO,PIVTOL,CTOL,PERTOL,DERTOL. 

/STATE/  JPOS.IPOH, JC0L,J0UT,ITRN,N9EJ,NPIF,NDJS 
/BOUNOS/  BOUNDS! 100) , TBOS (100) ,  NBOS 
/  CV2  /  T ( 100*10) *  BO (100) «BLO(lC) , UBS ( 10) , CO  C 10) 


COMMON 

COMMON 

COMMON 


COMMON 

COMMON 


COMMON 

COMMON 

COMMON 


COMMON  /CV3/  MRBCAV,NBBCAV,NCHGS 

-TAKES  INPUT  n  MATRIX  TN  COLUMNS  OFF  INPUT  FILE  BY  COLUMNS 
-INITIAL  SETUP  FOP  COMPLETE  PPOBLFM  IS  CHANGED  AT  END  TO  REOUCEO  PR20C23B9Q 


20023720 

20023730 

20023740 

_  20023750 

20023760 
/Q/  PELLA. tlQl  )_2Q£237_Z:0 
20023700 
20U23790 
20C238CC 
20023810 
20023820 

_ ...  .  20J12L83Q. 

20023840 
20023860 
20023860 
20023870 
20023880 


-OUT  npnos  GUB  POWB  AS  FOUND 
CALL  MESSS {4 ONSET UP 
-ACTUAL  PPOBLFM  ST7ES 
M=  TNPUTM4-1 

-TRY  TO  START  IN  PMAS^  2 
IPHASE=2 
IC=ICOST 
-TOLERANCES 
DJTOL=l .E-8 
2EPO=l . E-l 2 
R I VTOL  =  1  .E-5 
CT0L=l.E-4 
PEPTOL=l.E-6 
qcotol  =  1 .E-8 

nsc an=ntpy-maxtpy=nojs=ttpn=jncore=c 

-INVERT  FREQUENCY  TNVP,  TTEPATION  OF  NEXT  INVERT  TTNTNV 
INVE=10C 
I TN INV  =  0 


-FIRST  M  COLUMNS  GTVE  ROW  LOGICAL S  AND  TYPES 
DO  5  1=1, M 
KEYS ( I ) =0 
T9ASTS ( I)=0 

-MARK  PHASE 1  COST  POM  FREE  FOP  POSSIBLE  USE  IN  PHASE  1 
IROWTP ( M)  =  3 

-SET  UP  LOGICAL  VECTOPS  FOP  THE  POMS 
DO  10  1=1, M 
AL°HA ( I ) =0 . 0 

-NOW  COUNT  COLS  WOTTTFN 


20023000 
20023010 
20  023920 
20023030 
20023040 

_ 20  023950 

20023060 

20023070 

20023080 

20023090 

20024000 

_ 200240111. 

20024020 

20024030 

20024040 

20024050 

20024060 

_ ZQ 024070 

20024080 

200240RO 

20024100 

20024U0 

20024120 

_ -20Q24L3Q 

20024140 
20  Q2415C 
20024160 
20024170 
20024180 
2J)  024190 


10  = 


0 

20  C242L0 

100  1=1, M 

20024210 

IPOMTP(t) 

20024220 

TO.EQ.O) 

GOTO  90 

20  G24233 

IO.EQ.l) 

GOTO  21 

20024240 

IO.EQ.2) 

GOTO  22 

. . . .  20L24250 

IP.EQ.3) 

GOTO  27 

20024260 

I0.F0.4) 

GOTO  24 

23024270 

D-78 
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11  CALL  EDOria  (4(iH  rc-Tuo— OOH  Type  rpppp__ntiT  OF  °ANGE 
CALL  ESCAPE 

r _ EQUALITY  SOW-  NO  LnGTCAL  CQL. 

7J  GOTO  101 

c _ Lc.  PTH-  POSITIVE  LnGTCAL*SL«CK 

71  llPHMUM.t 
K  =  1 

GOTO  50 

C _ GE.  PQW-  NEGATIVE  LOG  IGAL  «-SL  ACK 

22  ALPHA(I)=-1 
K-l 

GOTO  50 

c _ rocf  PQW-PQSITI VE  LOGICAL-RAETC 

27  ALl’HA(I)=*l. 

I  !<A  STS  ( I )  =  NT*  1 
Y=? 

GOT Q  50 

c - r,'J5  PQW-NO  LOGICAL 

2k  CQNTTNUr 

goto  ino 

C _ plage  COLUMN  IN  FILE  1*1  ANO  TA2 

5  0  NT  =  nT»1 

NAME  (NT ) =< 

CALL  OUTLNT, ALnHA ,rOLNNL 
AL“hA(T)=0 
100  CQNTTnijE 

r- _ <cfp  pHASF  1  COST  POW  7E»n  IN  °H  ASr  2 

I PQWTP (M)  =0 

c - NO.  OF  LOGICAL  cole  mC 

MQrNT 


CYCLC  I  N°JT  ERE  col  ijm$ 

PEMINO  INPUT 
00  2C0  JUT  =  1,  TNPljTM 
110  IF(  JUT.NE.  J’HS)  E.OTO  1TC 

pr  A  0  (INPUT)  (PM5«J)  , J  =  l, INPUT”) 
f;._.-.14<F  phS  E POM  50  *M0  SKT°  TAPC  i/epETON 
00  120  Jsl,I‘iPUT“ 

120  °HS  (U)  =5Q(  J) 

PHE («) =0. 

NTiNT*1 

NAME(NT)  rO 

GALL  OUT(MT,ohE,goLNM) 

GOTO  700 

C - GET  mexT  COLUMN  JUT 

130  CONTINUE 

P£A  O  (INPUT  )  (ALPHA(J)  ,J-=1,INPUTM) 

C _ INEFPT  COLUMN  CHANGES  T0  PPO°LFM 

IF(JNT.GT.VCHGS)  GOTO  135 
AL“HA(ICOET)  =CO  (JNT) 

135  CONTINUF 

C _ CHECK  FOP  CQl  PAOKFT,  GFT  “KT  NO.  op  0 

p<t=: 

°KT 1=0 

00  140  T-l, INPUT- 

f  F (  IPOMTP(I)  .NE.4)  GOTO  14 

p<T1=1»“KT1 

I F (  AL°HA  (I).NF.l.)  GOTO  14C 


20024200 

20024250 

20024300 

2U024310 

20024320 

20C24370 

.0024340 

23224350 

203243^0 

2CC24370 

20024700 

2C  0  24  3° J 

20L244L  0 

2002441C 

20024420 

20  02447C 

20024440 

200^4450 

20CL*460 

20 124470 

20  0244  <*0 

20024450 

20024500 

2C  024510 

20024520 

20C245J0 

20024540 

2002455J 

20024550 

2DC2457D 

20024500 

20024550 

20024500 

2002461G 

20024520 

20024633 

2f  024640 

20024650 

20024560 

2C02467C 

20  0  2460  3 

2C0246°0 

70024700 

20L2471C 

2C024720 

20C24770 

2CL24740 

20  C24753 

20  L  24763 

20C24770 

200247P0 

20  024700 

20024000 

20024010 

70024020 

20024073 

2u  .24340 

2C 024050 
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140 

C - 

145 


150 

151 
155 

C  — 

C  — 
160 


200 
C - 


c 


c— 

210 

C  — - 

220 
C  — - 


230 
C— - 


C - 

240 


o«T  =«»KT1 

GOTO  145  _ 

CONTINUE 

check  for  bound,  oft  pound  no.  no  c 

IFINBDS.EQ.O)  GOTO  1M 

DO  150  J=1,N9DS  v 

IF  (  I9D5{ J) .EO.JMTJ  GOTO  15* 

CONTINUE 
J  =  0 

CONTINUE 

•SET  NAME  *0  BOUNn+PACKET  ♦  STATE  AND  HARK  KEY  COLUMN 
K  =  1 

COUNT  COLUMN  ANt^  WRITE  TO  FIIE  LCSS  GUP  FLEMENTS 
NT  =  14-NT 

NAME(NT)=K+10*PKT+10Q000*J 
CALL  OUT (NT ,  ALPHA, COLNM) 

CONTINUE 

REMOVE  GU8  ROWS  FROM  IBASIS  AND  FHS 
t  NON=  0 
L  =0 

TKOSTrTCOST 

no  220  1=1, M 

IF(IROWTP(U  .E0.4)  GOTO  210 
NON-GUB  ROE 
I NON=INONf 1 

IBaIsISCINON)  =10  0*  IBASIS  (I  M-IPOWTP(T) 

RHSdNONl  =  RHS  d  )  '  \ 

GOTO  220 

■GU9  POW,  STOPE  RHS  IN  AJ 
L=L*1 

AJ(L)=RMSCI) 

MOVE  DOWN  USFP  COST  »OW 

if(t.lt.tcost)  ikost=ikost-i 
.CONTINUE 

NOW  REPLACE  RHS  ON  END  OF  RHS 
IF(L.EQ.O)  GOTO  240 
DO  230  1=1, L 
PHS  CINON+I)  =  A  J  ( I ) 

MOW  DROP  COUNT  OF  GUB  ROWS 
M=M-L 

I COST  =IKOST 

“EDUCED  PROBLEM  Now  COMPLETE 

CONTINUE 

RETURN 

ENO 


20024860 

_ 21124AZ1L 

20024880 
2Q0248B0 
20024900 
..  20024910 
20024920 

_ 20124930 

2 0024940 
20024950 
20C24960 
20024970 
20024980 

_  20024590 

20025000 

20025010 

20025020 

20026030 

20025040 

_  20025050 

20C25060 
2Q025Q70 
20025080 
20025090 
20025100 
..  ..  1QD2511D 

20C25120 
20  025130 
20025140 
20025150 
20025160 

_ 2  0025170 

20025180 
20025190 
200252C0 
20025210 
20025220 
..  2M2523JL 
20025240 
20025250 
20025260 
20025270. 
20C25280 

.  _ -  20  025291 

20025300 


D-80 
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Sijnof'ijtTME  S  T  A  T  US  ( up  T  F) 

TTMFNST9M  N0TF(4> 

COMMON  /LIMS/  H4*TOV  ,  NTPY  , JNCOP  F  »NrPM A  X , NSC AN 
Common  /t/  M,L,MPL,MCtNT,IC0GT,T',TPH4SF,JPHS,T°I 
COMMON  /'JAMES/  NA  mf <100) 

common  /cope/  jAOFj(toi) , J4(iai )  ,j4<(M),»jtinn 

common  /A/  ALPHA(ld)  /9/  9ETA(ld>  /C /  OAMMA(lCl) 


/o/  OFLTA(lCl) 


?0C?S?iC 

20:25320 

2GG253T0 

20025340 

20325350 

20025360 

2CC25370 


COMMON  /OA  SI c / 

i=>afis (ioi)  ,kfys  (ici) 

20025. X  80 

common  /ojs/  njir. ) 

20 G 25 39 J 

COMMON  /ST  A T r  / 

JPCS, T°OH, JCOL , JOUT, TT»M,mpfj, MorF ,ND JS 

2CP2541U 

Common  /DAPAMS/ 

THAX , ITNTNV,  TUVF  ,K1,K2  ,K% K4,K5 

23G2541C 

OATA  JMTO/0/ 

20025420 

LOGICAL  9A  SI C  »  A  TnMO 

20325430 

I  F  (  MOO  {  <3,  11 )  .NF.C)  DFT(J°U 

20G2544u 

T  F  (  MondTPN  , 

5().EO.O)  VJPTTF(6,i) 

20125450 

FODMAT ( 1 HI 

70075460 

♦  ,  1  0  H 

PHASE 

?i 025470 

♦  *  1  0  H 

TTFp 

2J02548Q 

♦  ,1CH 

TP  Y 

70025490 

♦  »  1  5H 

V  -*  L  OgjFCTT  VT 

2CC255I0 

♦  1 1C  H 

UQJS 

20025513 

6  1 1  0  H 

NAPTS 

20325570 

+  t  1  5  H 

VALUE  OJ  T w 

2CC25530 

6  ,1CH 

Col  in 

2CC25540 

♦  »  1  P  H 

GOOF 

20C2555C 

♦  ,1"M 

or>L  OUT 

21325560 

♦  ,1PH 

COOE 

20325573 

♦  t  1  C  H 

NF  CAN  ) 

20025580 

ooq 


- S  TC°F  CU°ocnt  SOluTT  ON,  OlITT  0»  CONTINUE 
CALL  SECOND(V) 

Ip(X.LT.TMAX.ANn.TTPM.LT.K5)  GOTO  999 
CALL  MAOOUT(«) 
l~4LL  EXIT 
0  ONT T  NUF 

■CO'.IMT  A0TTVr  APTTFICTALS  FOP  STATUS  OATA 
MPIF=Q 


20025590 
20  j?56L  0 
20(25610 
2GG25620 
2CC2563C 
20025640 
2UC256rG 
2D  t 25660 


no  is  T=1,M 

IS  IF(  T^ASTSd) /lOe.GT.NT)  NOIF  =  l*M  >IF 
l'OST  =  -nFTA  ( TC ) 

NCOLc= JMCOpf 
TCfMTOY.NE.G)  GOTO  2' 

CALL  INonS(JNT) 

NCOL^= JUT- JNTO 

IF<NrOLS.LE.O)  Nf'PLS-UCOLS*MT 
20  JNTOsJNT 

JNSCAN=  10C  00  *MSCAN*Nl'nLS 

MNTPV=iOnr*MAXTPx+MTPY 
T  F  (  JCOL  .rQ  .  jj )  GOTO  i: 

T  c ( I°QW .FO.CM  GOTO  10 
ujOUT  =  UAME  ( JOIJT  ) 

IF(  JOUT.FQ.0)  Njnt)T=  • 

T  F  (  jnijT  .GT  .NT)  NJPUT-10C  0  J  JG  0*TPnw 

WOTTF  <F>  ,2)  I  PH  ASF  f  TT°U,MUTPY  ,COST,NOJS  ,NPTF  ,OJ  (  JCOL) 
♦  ,  JPOS.NAHc-  ( jeod  ,  JOUT,  UJOUT,  JUSOAN 

2  FO-'MATdH  ,TH0  ,F1F.G,?I10  ,F15.6*5Tlu> 
bfT'JPN 

- WHFN  NO  C0L'JMU  WAC  FrLf:pTF;r) 


2GC2567C 
20025680 
20  •'25690 
20J257C0 
20G25710 
2C025720 
2C 025730 
2QG2574C 
2CP25750 
20029760 
2002577C 
20G757P0 
20C257°0 
20025PT0 
20  ’  2  5  4 1 J 
2CC25820 
20  025 " T0 
20C25843 
20:25650 
20025663 
20025*73 


D-8l 
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---- 

--OR  UNROUNDED 

20025880 

to 

WRITE (6*3)  IPHASE«ITRN, MNTRY,COST ,NDJS  »N°IF^ NHTE» JNSC&N 

_ 25525495- 

3 

FORMAT  <  1H  ,3110  ,E1 5. 6 , 2T1 0 , 15H - ,4410,110) 

20025000 

RETURN 

.  .  .  20025910 

20J25920 
20025930 

ENTRY  ERROR 

20025940 

WRT TE C 6 ,4)  NOTE  .NOTE, NOTE  .. 

_ 20025.950- 

4 

FORNATdH  /  (  1H>  ,4A  10  )  ) 

20025960 

RETURN 

20025970 

20025980 

20025990 

ENTRY  MESSG 

20026000 

ENTRY  M5SG 

..  ..  200260.10 

IF (MOO (K3, 7) .NE.d)  RETURN 

20026020 

CALL  SECONO(X1 

20026030 

WRITE<6,5)  NOTE  , X 

20026040 

5 

F ORMAT ( (1H  ,4A10,6CX,F10.0,*  SECONDS*  ) 

20026050 

RETURN 

20026060 

ENO 

_ 20526570 

D-82 


SUBROUTINE  XCHFCK (CALLER,  AT, 0) 

»FAL  °M1> 

C - GIVPS  QUICK  CROSS  OH«"  CKS  AND  LOC  ATI  ON 

common  /»HS/  »HS<inn> 

COMMON  /MOVES/  THFT A ,OND J.DMAX , PPMLEP ,DUALER 
COMMON  /PARAMO/  Twax,ITNTNV,INVF,Kl,K2,K7,<4,K5 
COMMON  /A/  AL°HA(1CH  /0/  RETA(lfl)  /C/  CAMMA(lOl) 
common  /oasis/  lOAsrs(ioi) ,<rvs(  icn 
COMMON  /CORF  /  JAOPJ(ICI)  ,JA(131)  ,JAK(1  1>,AJ(13  jf  ) 
COMMON  /!/  MtL,MOl  ,Mf',NT,ICOST,IO,loMA«:FfjPHS,IPI 

COMMON  /LTMS/  MAxTPY.NToy , jncopf  ,ncomax,nscan 


common  /djs/  oj(irc)  9n 

COMMON  /MAMFS/  mAMF(1C3)  2C 

COMMON  /TOLS/  OJTOL,7FPOtPIVTOL,CTOL,PEPTOL,OEPTOL  2D 

O0MM0N  /STATE/  JPOF, TPQW, JCOL, JOUT, TTON,NPEJ,NPIF,NOJS  20 

COMMON  /BOUNDS/  POUM^SC  103)  ,  IROS  (ICO  ,  NBCS  ?f! 

I  NT  EGER  DELTA  20 

IPOWTo<T)=MOO<tOASTS<I) ,100>  2C 

C - K  4  IS  10G0*ST  APT  4-  STO°  ITEPATTOM  FOR  XCHECKS  20 

IF(K4/10C0  .RT.ITPM  .OR.  MO0(K4,  1CC0) .LT.ITRN)  PFTUPN  20 

K4  =  1C00*(ITPN«-K2)  «-MOO  «4,  100  0)  20 

HRITF (6,1)  CALLFp.TPOW.THFTA.BNO J,JonS  20 

1  F 0°MA T  (  * 0 . . . . . «/  2C 

<■  *  XCHECK  C ALLrO  BY  *A6*  PIVOT  ROW - *13,  20 

♦  *  STFp*E12.5*  P0UND*C11 .4*  COLUMNM5)  20 

WRITE ( 6,6 )  (OJ ( J) ,J=1, JNCOPF)  20 

6  F0OMHT(T2XtlCFlG.4)  20 

.J  <OL  “  JCOL  20 

Jt=M#X3 ( JKOL-S, 1)  2C 

J?=MIN3 (J149, JNCOPF)  20 

WRITF(6,6)  (JA(K) ,K=J1,J2)  20 

5  FOPMAT  ( 32X  ,  1C  TIC)  20 

TOPC.rl  23 

JFN0=JNC0RF*m  20 

DO  40  T=1,M  20 

JOPr,=Jl*M-M4-l  20 

OO  -»Q  J=J1,J?  2C 

AJ(JFND+J)  =DOT(M,o(IOpr,)  ,  AJ(JOPG)  )  2C 

I  F  (  ARS(Aj(jr  NO  4-J)  )  .LE.ZEPO  )  A  J  ( JFND*  J)  =0  .  20 

7G  JOPG=JORG*M  20 

WRITE (4,0)  I ,TRASIS( I) ,AL°HA (I) .BETA (I ) , < A J ( JEND* J > , J= J 1 , J? >  2C 

40  IOBr,  =  TOPf>N 


DO  45  J=J1,J2 
J  A J- J A ( J) 

45  OFLTA(J)=NAMF(JAJ) 

WPITF (4,4) (DELTA (J) ,J=J1,J2) 
IF(L.EO.j)  GOTO  40 
DO  5C  1=1, L 

WRTTE(6,8)  I,KEYS(T)  ,ALPHA(I4-M) 
SO  CONTINUE 
60  CONTINUE 

fl  FORMAT (T7,I7,2E10.?»2X,1CE10.  ?) 

c - ERROR  CHECKING  option  IN  XCHFCK 

73  CONTINUE 

TF (MOD ( K3,  17  ) .NE.f )  GOTO  566 

c - GAMMA  SUMS  LHS-PHS 

no  qn  1=1, mpl 


22126080 
2  0  026  G°0 
20J261C0 
20026110 
2  C u26120 

2CC26130 
/O/  DELT  A (101 )  2CD2614C 
20026160 
23026163 
20 [26173 
2CC26180 
G7G1Q0 
L262CG 
L2621C 
C26220 
026270 
!1 2  6  2  4  o 
C2625C 
02626C 
026270 
C  262PC 
G  ?62Qu 
C263C0 
026710 
u26323 
0  26 1’O 
026.740 
0263*0 
J2676C 
CP6370 
02638C 
024300 
G264C3 
L2641C 
G2642C 
026430 
G2644C 
C2646C 
C  26460 
026470 
C264PC 
23026400 
2CG2651G 
20026610 
2C  0  26620 
2CC26570 
20C26540 
20026660 

nET  A ( I tm )  20C2656C 

20  C  26570 
2 0C26580 
20G265OC 
2C  3266CC 
23026610 
20G2662D 
20C26670 
2C  326640 
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20026650 


<90  GAMMA(I)=-RHS(T) 

C - CYCLE  ALL  BOOK  KEEPING  TO  GET  COLUMNS . IN _QRDE? 

LAST=1 

NVARS  =  M«»L«-N90S 
00  500  NVAR=1,NVAPS 
NEXT=999999999 

C - BASIC  COLUMNS 

00  200  1=1, M 

J=IBASIS(I)/100 

C - MARK  STRUCTURAL  S 

TTAG =2 

IF(J.LE.NT)  GOTO  16C 

C - mark  artificials 

T  T  AG=5 

IF< J.LE.NTflGO)  GOTO  150 

C - MARK  NEGATIVE  ST9UCTURALS 

I T  AG=6 

J= J-  (NT 4-10  0 ) 

IF (J.LE.NT)  GOTO  150 

C - M ApK  NEGATIVE  APTTFICIALS 

I T  AG  =  7 

150  CONTINUE 

IF(J.LT.LAST)  GOTO  200 

IF(J.GT.NEXT)  GOTO  200 

NEXT=J 

JTTPE=2 

JTAG=TT  AG 

X  =  BET  A ( I) 

I RAS=I 

200  CONTINUE 

C - BOUNOEO  COLUMNS 

IF ( NR0S «EQ • 0 )  GOTO  3P0 
NEXTJ=MINO (NT .NEXT) 

00  2*50  J=LASTfNEXTj 
TF ( MOO (NAME(J) ,10) .EG. 3)  GOTO  29C 
250  CONTINUE 
GOTO  TOO 
290  NEXT=J 
JTYRE=3 
X=90UN0(  J) 

C - KEY  COLUMNS 

300  CONTINUE 

IF(L.EQ.O)  GOTO  360 

DO  350  1=1, L 

J=KEYS  (D/100 

IE( J.LT.LAST)  GOTO  350 

IFtJ.GT .NEXT)  GOTO  350 

NEXT=J 

JTYPE=4 

X  =  9ETA  (M4-I) 

350  CONTINUE 
360  CONTINUE 

GET  NEXT  COLUMN  TO  CORE  IF  REAL  (JTAG=?  OR  6) 
TF(NEXT «EQ, 999999 oqq)  GOTO  510 
IF (NEXT .GT ,NT)  GOTO  400 
CALL  I N (NEXT, A J (JFND+l) ,  JNCOPE«-l> 

C - ADO  GUB  ELEMENTS 


20026670 

20026600 

20026690 

20026700 

20026710 

_ 201126720 

20026730 
20  Q26740 
20  D26750 
20026760 
20026770 
20026100 
20026790 
2CS268C0 
20G26813 
20026820 
20026830 
.  _  20026840 

20026850 
20026860 
20026870 
20026880 
20026890 
......  2QE26-9C0 

20026910 
20026920 
20026930 
20026940 
20  C26950 

_ 20.026960 

20026970 

20026980 

20026990 

2GC270G0 

20C27010 

. 20.Q2102H 

20027030 
20  027G40 
20027050 
20027060 
20027070 

_ ZCf27JQflq. 

20027090 

20027100 

20027110 

20027120 

20027130 

20C27A40 

20027150 

20027160 

20027170 

20027180 

20027190 

_  20  0J2Z2JJ0 

20027210 

20027220 
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MPl=M+t 

20  J27220 

IP(L.FO.O)  goto  3*6 

20027240 

m  7so  i=m°i,mpl 

20  C2  7250 

ISC 

ft  j(  jfno+t)  =o . 

20CP7260 

TGU9=W0n(NftMF (MFVT) , 1 00000) /1G 

20027270 

IF(IGU9.NE.0)  A  J  { JFNO+M+I  GUB ) =1 • 

200272*3 

3B5 

Ip( JTYPE.NE.2)  GOTO  450 

20C272Q0 

IF(  JTAG.NE.5)  GPTO  45  0 

200273 DO 

C - 

-negative  stpuctup«ls 

2GC27313 

DO  79 J  1=1, HPL 

20027320 

39: 

ft  J(  JFND  +  T)  =-ftJ( JCNP*T) 

20C2/330 

ftJ(JFMn«-M)  =1. 

20027740 

GOT 0  450 

20327350 

c - 

-ARTIFICIAL  V^CTO0  (JTAG=5  OR  7) 

20027360 

403 

OO  410  1=1, mpl 

20027770 

41 ; 

AJ(  JFNO+T)  =0. 

20027360 

AJtJFND+IRAS) =1. 

23227393 

A  J ( JFNO+M) = 1 . 

20  3274C0 

IF( JTAG.E3.7)  A J ( JFNO+IBAS) =-l . 

20027410 

r 

20027420 

c— — 

-SUM  Y*  ft J  TO  GftMMft —  THE  FRROP 

20  227430 

45] 

OO  460  1=1, mpl 

20027443 

460 

GAMMA (T)=SAMMA( I) +Y* A J( JENO*T) 

2CC27460 

*50  0 

LAST =NF  YT*-1 

2 0027460 

501 

FOomaT(4T4,F12.4,10F1Q.4/(28X,1<]Fio.4)  ) 

20227473 

513 

continue 

2GC274B3 

C 

20027490 

C - 

•-CHECK  FPPOR  AGAImsiT  TOLERANCE 

2CC275C0 

oi?MLrP  =  0. 

20C27510 

K  =0 

2G  02762c 

on  560  1=1, mpl 

20027530 

APSGAMsAOS CGAHMfl(T)  ) 

20027540 

IF( anSGAM,LF.°ERTPL)  GOTO  560 

20327660 

K=K*1 

20C27560 

OEL  TA ( K) =1 

20C27570 

G AMMA (K> =GAMMA( I) 

200275*0 

IF ( ABSG AM. LE • PRMLFP)  GOTO  550 

20C2759Q 

PRMLE9=ARSGAM 

20027600 

550 

CONTINUE 

20027610 

IF(P“HLEP,LE.PE»TPL)  WRITE  16, 55  2) 

20027620 

IF (P°MLEP,LE.PEPTOL)  GOTO  556 

2*  02  76‘,0 

WRITE (6,551)  °OMLEp,°ERTOL, (CELT  ft (I) , GAMMA (I) ,T=1,K) 

20  J27640 

T F (MOO (K3, 19) • NE#  r )  GOTO  555 

20027660 

ITNIMV=IT?N 

20327660 

551 

FOPMAT (*0°»IMftL  FPPOPS  EXCEEO  TOLERSNCF - *7 

20027670 

♦  *  FPPOR--*F12.4*  TOLERANCE— *F12. 4/(4(110, E20. 8))) 

20  C  27600 

552 

FOPMAT ( *  ERPORS  WITHIN  TOLERANCE*) 

20  G276q0 

555 

WRITE  (6,7) 

200277C0 

7 

FORMftTdH  ,  4  CM -  //  ) 

20027710 

°etupn 

20  327720 

ENO 

20027730 

PROGRAM  REPGENCTNPUT, OUTPUT, TAPLA,TAPE5=IiiPiJI> 

1  TAP»r6  =  0UTPUT,TAPEe»=TAPEA> 

COMMON  /VECSTG/  VNAMF(IO) ,C,LENP,VLIFE(1> ,INH(1C,16>, 

*  VCOST ( 10 , 5) ,NAMEN<10> ,COSTS<30 ,3> 

COMMON  /BASICS/  CHAP(5C00,4> ,CODF(20> ,PE»(10> , IYP(IO) ,LVR(10) 
COMMON  /OUTS/  OANPM<20> ,SALF( ?C> ,S»VE( 20) , EXIST { 10 , 20) , 

*  PUPCH(1D,2C> ,STOP(10,20» ,SALV(10,2Q)  ,PROC(20» ,P10TI2a) _ 

COMMON  /P ARAMS/  »OTOT , TNYR , L AST , NV, NP , TO T, TT TLE (4) ,COST 

DATA  CO0F  /  2M01,2Hp?,2H03,2H04,?HG5,2H06,2H07,2H08,2H09,2H10, 

*  2M11,2H12,2M13,2H14,  -,H15,2H16,  2H17 , 2H1 8 , 2H 1 9 , 2H?  0/ 
CALL  SETUP 

ST  PFAO(9,lOO) (TITLF(I) , T=1 , 4) 

1 J  0  FORMAT ( 4A10) 

IF<CPF, 9)7777, 200 
200  P0TOT=0.0 

00  300  T=1 , 20 
SALE(I)=0.0 
SAVE(I) =0. 0 
OROC(I) =PR0T( I) 

0  ANOM ( I ) =0 • 0 
00  250  N=1 ,10 
°URCH(N,T) =0.0 
EXIST(N,I) =0.0 
STOP (N,t)=0.0 
SALV(N,I)=0.0 
25Q  CONTINUE 
300  CONTINUE 

CALL  INSOLN 
CALL  CINR) 

CALL  °TNFO 
GO  TO  50 
7777  STOP 
pNO 


20X00515- 
70000020 
30000C30 
30  0  C  0  040 
30000050 
30000060 
3000X070 
300000  AO 
3CC00090 
30000100 
30000110 
30000120 
3 000 0130 
30000140 
30000150 
30000160 
30C00170 
300G01P0 
30000190 
30G002C0 
30000210 
30000220 
30000230 
30000240 
_  30000250 
70000260 
30000270 
30000280 
30000290 
30C003C0 

_ 30000310 

30  C  0  0  320 
30C0Q33C 
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SUBROUTINE  CINFO 

tommon  /VECSTG/  VNAMF  ( 10 )  .  0 ,  LENP  ,  VI  TFE  <  1 C>  ,  I  NH  C  1C  ,  16)  , 

*  vcost<io,5)  ,na*fn{io)  ,cost<“<3o ,t> 

common  /basics/  CMAP(5Qoo,4),cnnE(?j>,PEP<io),iYP<io),LVR<iJ> 
COMMON  /OUTS/  OANPM(?0) ,SftLE(2G) , SAVE { 2C ), EXIST ( 13 , 20) , 

*  PljeCHt  10,2  0  )  ,  STOP  (10, 20)  ,SALV( 10,20)  ,P°OC(?G)  ,PROT<20> 
COMMON  /OAPAMS/  PDTOT, INY9, LAST, NV.NP, TOT, TITLE(4) ,CCST 
DATA  ONE, TOTAL, PFPIO0  /  2H3  1 , 6H TOT AL  ,6H°ERT0D  / 
w»TTF(G,1O0>  (TITLr(I) ,1=1,4) 

SlJMT=0 . 0 

TaonC=G.C 

TCOST=0.0 

oo  «;:.a  r=i,2o 

5  GO  TCOSTrTCOSTfOANOM(T)  «-SA  VE  (  I )  -SALECI) 

TCOST=COST-TCOST-POTOT 
DO  6P0  1=1, NP 
FOG  TOOOO=TPPOC+PPOC< T) 

Tooor=TPPor/TCOST 
00  1C  3  0  1=1, NP 
TC(OFP<T).E0.0NF>  m=T 

1003  CONTTNUP 

00  20  3  G  T  =  N ,  N p 

<l=TYP(T)-TNVp*i 

<’=LYR(I)-INYP+1 


30  CO  0  340 
3GG0035C 
3:10.360 
300003/0 
3QC0C380 
30C003«0 
30000400 
3C 003410 
3CCGJ42G 
30  C  G  G4  30 
30000440 
3CCC04FC 
3GCCC46Q 
30000470 
300004PC 
30333400 
3CCC05GC 
300005) C 
30000520 
30300533 
330CQ540 
30  C  G  0550 
30000560 
30  CO  35/-1 


on  1533  K=K1 , <2 
IF(K.EQ.Kl)  GO  TO  15CG 
PANDM(Kl)  =  nANOM  (K’D+OANQMfO 
SALF(K1)=SALE(K1)+SALE(K) 

15  J  1  CONTINUE 
j  a I -N* 1 

PROS ( I ) =PPOC (I) /TOPOC 
OANnM(<l)  =  OANOM(Kn+SAVE(I> 

SUM=OROC(I) ♦OANOM(Kl) -SALE(Kl) 

H°I TE (6 , 20  0)  PERTon,roOE( J) ,PROC  d) ,OA NQM { <1 ) ,SALE(K1) ,SUM 
IF  (J.'-O.l)  GO  TO  ?0  C  C 
o  ANON  (  1)  =OANOM(H  +  nANDM(Kl) 

SALF(l)  =SALE(1)  +SAI  P(K1) 

PROC (N) =PPOC(N) ♦PPOC(T) 

200  C  SUMT=SUMT*S!JH 

I  =L  Y°(  NP)  -  TNYR4-  2 

MRTTE<6,-*0  0)  TOTAL  ,PO  TOT,  PROC(N)  ,06  NON  ( 1 )  ,  SALE  ( 1)  ,SUMT 
WRI TF ( 6 ,40  0)  SA LF (  I ) 

100  FORMAT ( 1H1 ,15Y, 4A)C  /  1M-,*C0ST  INFORMATION*  / 
*1H-,12X,5(H*,12Y)  /  13X,1H*,*  R  AND  D  * ,  1H*, 


*  #  _  _  . . . 

**  TOTAL  *  /  1H  , 77 ( 1 H* )  /  13X,5(1H*,12X)) 

200  F  0°MAT ( 1H  ,A6,2X,A2,2X,1H*  ,12X,4 (1H*,1X,F9.3,2X)  / 
TOO  fopmaT(13X,5 (1H*, 12X)  /  1H  , A6 , 6 X ,5 < IN* , IX ,Fq. 3 , ?X ) 
40 J  FORMAT (1M-  /  1H-, ’TRUNCATION  VALUE  FOR  RESOURCES  = 
RETURN 
c  NO 


* , 1H  *  , 

13X , 5 ( 1H* , 12X) 
/  1H  , 77 ( 1H*  > 
*,F9.3> 


3G  CO  05 *0 
3G  CO  05Q0 
300G06C0 
30C0C610 
30  3G  3620 
30000630 
30000640 
30  CO  3650 
30  G  3  0663 
30000670 
30000680 
3U0036RC 
30GG07C0 
30CC0710 
30000720 
3CC00730 
300C074G 
30  GO  0750 
30000760 
3CC0J770 
30000780 
3CG007P0 
) 30000800 
) 3CG00810 
30000820 
30000830 
3C000840 
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SUR°OUTTNE  INSOLN 

COMMON  /VECSTG/  VN AMF (10 > ,C,LENP , VL IFE ( 10) , INH (10 , 161 , 

*  VCOST  ,NAMFN(10)  .COSTS  (30  ,3) 

COMMON  /BASICS/  CHAR(5000,4> ,CODE(20> ,PER(10> ,IYP(10> ,LYR(10) 
COMMON  / OUTS/  OANPM( 20) , SALE (20) .SAVE ( 20) , EXIST (10 ,20) , 

*  »UPCH(10,20)  .STOP (10, 20)  ,SA|_V(  10,201  ,PROC(?0)  ,PROT(20> 
COMMON  /PARAMS/  RQTOT  ,  INVR.t  AST  ,  NV ,  NP  ,  TO  I ,  TITLE  (4)  .COST  _  .. 
INTFGEP  TOT 

T OT  =NP*1 

DATA  X/1HX/,W/1HW/,S/1HS/»BLANK/1H  /.9LAN2/2M  / 

77?7  RFAO (9, 1J0I TNO, VAL 

IF(TMO.GE.O)  GO  to  101 

COST=VAL 

GO  TO  700 

101  IF(TNO.EO.O)  GO  T"  7777 

T F ( CHAR (INO, 1) . EO . X )  GO  TO  5C1 
IF(CMAR(IN0, 1) .EQ.W)  GO  TO  400 
IF(CHAP(INO,l) .  EQ . S)  GO  TO  310 
IF(CHAR(IN0,3) .NE.PLAN2J  GO  TO  7777 
C  INTERPRET  DNN  VARIAOI.ES  FOR  INVESTMFNT  CONSTRAINTS 
00  200  1=1,20 

IF  (PEP(TI  .E0.CHAo(TND,2n  GO  TO  21C 
200  CONTINUE 
GO  TO  1000 

210  OROC (I) =RROC <I) -VAL 

PO0C(I+l»=PP0C(I*l)+VAL 
GO  TO  7/77 

C  INTERPRET  INHERITED  FLEFT  AND  PURCMASF  FLEET  VARIABLES 
420  DO  4u5  J=1 ,20 

TF(CODE<J) .EO.CHAP(TNO,2> )  GO  TO  41C 
405  CONTINUE 
GO  TO  1000 
4 1 J  DO  420  1=1,10 

IF (PER ( I )  •  EO  •  CH  A° (TND,3) )  GO  TO  430 
420  CONTINUE 
GO  TO  100C 
430  ISTA=>T  =  IYR(I) 

I F ( CHAR ( IND , 1 ) .EO.X)  PURCM(J,I) =VAL 
OO  450  1=1,10 

IF(CFR(I).E3.CHAR(TND,4)>  GO  TO  46C 
45  U  CONTINUE 
GO  TO  1QC0 
460  IFNO=LYPd» 

CALL  VALUFS(J,ISTART,IEN0,VAL) 

GO  TO  7777 

C  INTER°RFT  MOTHBALL  VARIABLES 
300  no  360  T=1,2C 

IF(COOE(I) .E0.CHAR(TN0,2) )  Go  TO  361 
350  CONTINUE 
GO  TO  1000 
360  DO  370  Jsl.lfl 


300  408  50- 
30  0  0  0860 
30000870 
330Q088G 
30000890 
30000900 
30000910 
30000920 
30000930 
30000940 
30  DC  3950 
30000960 
30000970 
30000980 
30  C  u  0990 
30001000 
30C01Q1G 
30  001020 
3QG31Q3Q 
30001043 
3C001C5Q 
30C01060 
30001070 
30001080 
30CC1090 
30CC11L0 
3C001110 
30CC1120 
3  C  CO  1 1 20 
30C0114C 
10&0115CL 
30C0116C 
33001170 
30C011*0 
3CC01190 
30001200 
.30001210 
30C01220 
30CC123C 
30001240 
30001250 
30  CC 1260 
30001270 
30001280 
30001250 
30001300 
30001310 
30001320 
30001310 
30001340 
30001350 


I F ( °FR (J).FQ.CHAR( TNO ,3)  )  GO  TO  38C 
370  CONTINUE 
GO  TO  1000 
383  STO°(I , J)=VAL 

LENP=LYO(J)-TYR<J)+l 


30001360 

30001370 

30001380 

_ 3000 1390 

30001400 


CALL  MOTH(I) 


30001410 
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SftVF(J) =SAVE  < J>  +r*v«L 
go  TO  7777 

C  INTfpopft  HftSTFP  V  #°T  flPL  FS 

5  J  3  IF<CHftP(!tO,  3)  .NF.PLflN?)  GO  TO  4  3 
00  <^0  1=1, ?C 

TF(OOOF(T)  ,F0.GHaP(lM0,2)  >  GO  TO  SF»G 

sgo  continue 

GO  TO  1C  30 

56.,  PUffOM(  I  ,TOT)  =VAL 
IF(V4L.OT.C.L) 

»PnTOT  =  POTOT4-VOOST  (T,-*) 

GO  TO  7777 
C  EPPOP  MESSAGE 

10 D G  WPT  TE ( 6 ,60  Q )  (CHAP (TWO, I) , 1  =  1 , 4) 
stop 

7  J  3  PFTUPN 

133  FOPMftT (T4,4X,F12.4) 

600  FODMaT(lH-,*EPPOP  TN  INTE°°PFT  A  T  TON  OF  *,A1,3A2) 
F  NO 


D-89 


3CCG1420; 

300014301 

30001440; 

33C014SQ; 

30001460- 

30001470; 

300314001 

30  CO  140(|; 

3occi5ro: 

30001510 

30001523 

30001530 

30001540 

30001550 

30C01563: 

30001570 

30C015RO 

30C01550 

33301630 


SUBROUTINE  »INFO  _ 30C01610. 

COMMON  7VECSTG7  VNANE (10» »C,LENPt VLIFE < 1C) ,INHC 10 » 16» ,  30001620 

*  VCOST(10,5) ,NAMFN(10> ,COSTS(30,3>  30001630 

COMMON  /BASTCS/  OHAR{500fl,4),COOE(2J)»pEp(tG)»I7R(lQ)*LVR(l'))  30001643 

COMMON  /OUT*?/  OANPM{20),SALE(2Q),SAVE{2C>»EXTST(1Q*20)»  30001650 

*  PUpCH (10,20) , STOP (10, 20) , SAL V(  10,20) ,PpOC(20> ,PROT(20)  30001660 

COMMON  /PAPAMS/  PPTOT , INYP . L AS T , NV, NP, TO T, T I TLE (4 ) , COST ^  TQ0D1670 

INTEGER  TOT  30001683 

O  AT  A  TOTAL, PERIOD, PL ANK  7  6HT0T  Al  ,6HPERI00,2H  /  30001600 

WRI TE( 6 , 10  00 )  (TITl E( T) , 1=1,4)  30CC17C0 

M=1  30001710 

5  CO  TO  (10,20, 30, 40, SO, 60,70,00, 4  )  ,NV  39001723 

13  WRITE(6, 1010)  (VNAMPd)  ,T=1, NV)  30001730 

GO  TO  100  30001740 

20  HRITF(6, 1020) (VN®MF(T), 1=1, NV)  30001750 

GO  TO  100  30301763 

33  HRITF(6, 1030) (VNAME(I), 1=1, NV)  30301770 

GO  TO  100  303C17B0 

43  WRTTE(6, 1040)  (VNAMP(T), 1=1, NV)  ...  30G01790 

GO  TO  mo  30Q018GG 

53  WRI TE ( 6 » 10 50 ) (VNAME ( I ) , 1=1 ,NV)  33001810 

GO  TO  100  30001820 

60  HRITE(6, 1060) (VNAMF(T) ,1=1, NV)  3UCQ1830 

GO  TO  100  30001840 

70  MRITF(6,1070) (VNAMF(T) ,t=l,NV)  30CC1B50 

GO  TO  10C  30G01B6G 

80  HRTTF(6,1080) (VNAMF(T), r=l,NV)  30001870 

GO  TO  100  30001880 

90  Mt>TTF(6, 1090)  (VNAMF(I)  ,1=1, NV)  30C0189C 

1303  FORMAT (1M1,15X,4A1C  7  1H- , ’PURCHASED  RESOURCES’)  30C019CO 

1010  FORMAT ( 1H- , 1 2 X ,  1H*,12X  /13X,  1H*,2X,A5,2X  71H  ,25(1H’)/  ..  3C3Q1910 

*  13X,  1H* , 1 2  X)  30P01920 

1020  .FO°MAT ( 1H- , 1 2X , 2 ( 1 H* , 12X)  /I 3X , 2 ( IH*, 2 X , A8 , 2X> 71H  ,38(1H*)/  30001930 

*  13X,2(1H*,12X)  )  3C  0C 1940 

1030  FORMAT  (1H-,12X»  3(1  H*,  12X)  /13X,  3  ( 1H*,  2  X,  A8  ,  2X)  714  ,5K1H*>/  30001950 

*  13X,3(1M’,12X)  )  30001960 

1040  FORMAT ( IH- , 1 2 X , 4( 1H’ , 1?X)  /1 3X , 4 ( 1H* , 2 X , A8 , 2X ) / IH  ,64(1H*)7  33G0197SL 

*  13X,4(1H*,12X)  )  30001980 

1050  F0RMAT(1H-,12X,5(1H*,12X)  /13X, 5  ( 1H’ , 2 X , A8 , 2X) /IH  ,77(1H’)7  3QCC1990 

’  13  X, 5 ( IH* , 1 2X)  )  30002000 

1060  F0RMAT(1H-,17X,6(1H*,12X)  71 3X , 6  ( IH* , 2 X , A8 , 2X ) /IH  ,90(1H’)  7  30002010 

*  13X,6 ( 1M* , 12X)  )  30002020 

1Q70  FGRMAT(1H-,12X,7(1H’,12X)  /13X , 7  ( IH* , 2 X , A8 , 2X ) 71H  ,1Q3(1H’)/  .  30D02030 

*  13X,7 (1H*,12X)  )  30002040 

1080  Ff)RMAT(lH-,l?X,8(tH’,12X)  71 3X  ,  8  ( IH*  ,  2  X  ,  A8 , 2X )  /  IH  ,116(1H’)  7  30C02053 

*  13X,8(1H*,12X)  '  30002060 

1090  FORMAT ( 1H-,12X,9( IH* , 12X)  713X, 9 ( IH* , 2 X , A9 , 2X) 71H  ,129(1H’)/  30C02C70 

*  13X,9(1H’,12X)  )  30002080 

100  IF(M.GE.2)  GO  TO  305  33GC2G90 

K=0  3C0C21C0 

DO  200  1=1, TOT  30002110 

IF (PER (I)«EQ,COOF (1) )  <=l  30002120 

TF(K.NE.l)  GO  TO  200  30002130 

TEMP1=OFRIOO  30002140 

TEMP2  =  RER(I)  3ELC02150 

IF(T.NE.TOT)  GO  TO  ITS  30002160 

TEMPl=TOTAL  30002170 


D-90 


0000  o 


105 

110 

12J 

110 


14u 

150 

16j 


170 

100 

190 
23  3 

1113 

1120 

1110 

1143 

1150 

1163 

1170 

1180 

lllu 


TCM02-1L4NK 


Gn  m  (HO, 120,131. 140, 15C, 160, 170, 180,1  10)  ,HV 
MUTE  <6, 1110)  TFMP1,TEH02, <PU?CH(J,T> , J=l,NV) 
GO  TO  ?Q0 

W>tTr(6,1120)  TE“P1, TFHP2, (PU’CH  (J, T) , J=l, NV) 
GO  TO  200 

WPITr(f,,U30)  TE^oi.TFMO?  ,  (PU®C« ( J,I)  , J=l,Myi 


GO  TO  230 

MOITE(6,1140)  tempi, TfMP2, (PUPCH (J,T) , J=l,NV) 
GO  TO  PQO 


M9ITF(6,1150)  TEMPI, TEMP? , (PUPOH (J,T> , J=t,My> 
GO  TO  230 

MPT  TF ( 6 , 11 60 )  TEMPI, TEHP2, (PU9CH  1 J, I) , J=1 , NV) 
GO  TO  20C 

W®ITF(6,1170 )  TEMPI, TEMP?, <PUPCM(J,T) , J=l,MV) 
GO  TO  2Q0 


MPT  T£ ( 6 , 1180 )  TEmo1,temo2, (PU9CH ( J, I) , J= 1 , MV) 
GO  TO  20C 

MPITF(6,liqp)  T  EM°1 , TEMP2 , (PU°CH  ( J, 1 1  , J  =  1 , NV) 
COMTTNUE 


FOPMAT ( 1M 
FOPMAT  ( 1H 
FOPMAT  < 1M 
FOPMATHM 
FOPMAT ( 1H 
FOPHftT  <1H 
FOPMAT (1H 
FOPMAT (1H 
FOPMAT (1M 


,86,2X,A 2,?X,  1M*,2X,F8.3,2X 
,ft6,2X,8?,?X,2<lH*,2X,F8.3,2X) 
,A6,2X,«?,PX,3(1H*,’X,08.3,2X) 
,A6,?x, 82,2X,4(1H*,2X,F«.3,2X) 
,86,2X,8?,ox,G<1H*,2X,P8.1,2X) 
,86,27,82, ?X,611H*,2X,F8.3,2X) 
,86,2X,A?,2X,7(1H*,2X,F8.1,?X) 
,8^,2X,fl2,7x,8(lM*,2X,f8.3,2X) 
,86,2X,8?,?X,q( 1M*,2X,P8.3,2X) 


/  13X,  1H*,12X 

/  13X,2UH*,12X> 
/  11X,1(1H*,12XI 
t  13X , 4 ( 1H* , 12X 1 
'  1TX,5»1H*,12X) 
/  1 3X , 6 ( 1 H* , 1 2X ) 
/  13X,7(1H*,12X) 
/  13X.A (1H*,12X) 
/  11X,9(1H*,12X) 


FTPST  ° APT  OF  THIS  SUnonUTTNF  OUTPUT  INFOPMATTON  CONCEPNTNG 

EQUIPMENT  “UPCHASEG  PI'PING  EACH  PPPIOQ  . 

NEXT  section  OUTPUTS  pESOUPCES  STOPFO 


WPITEC6, 10001  (TITLEHl  ,1  =  1,41 
H=3 

GO  TO  5 

105  IF1M.E0.21  GO  TO  2C5 
N  =  0 

no  4uo  i=i, np 
K  =  IYO(Il-INTPl-l 
I F  ( < .1 E  ,  3)  on  TO  ULC 
N=N>1 

GO  TO  <310, 320, 331, 340, 150, 360, 370, 380, 390  ,NV 
313  MPTTF(6,11101  PEPTOn,COOF(Nl , <STOP(j,I)  ,J=1,NV1 
GO  TO  40C 

120  MPT TF( 6, 11  201  PEPTOO.rODECNl , (ST0P(J,T)  ,J=i .MV) 
GO  TO  400 

333  WPITE(6,11301PEPTOn,GOOECN),(STOP(J,Il  ,J=1,NV1 
GO  TO  400 

140  WPITF(6,11401OFPIOD,''0DE(Nl  ,  (  STO'»  (  j,  X  )  ,  J=1  ,MV) 
GO  TO  4G0 

350  HPTTE<6,1150) PEPTon.^OOECN) , <STOP(J,I)  ,J=1 ,NV) 
GO  TO  400 

160  H°ITE<G,lt601PEPTno,rODF(Nl , <STOP(J,I) , J-l ,NV) 
GO  TO  40C 

17u  WPI TE (6, 11 70) PE ®T 00, P00E(N1 , (ST0P(J,T) , J=1 ,NV) 
GO  TO  400 
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10002180 
10002190 
3C  i.  3  ??C  j 
30002213 
30002220 
30002230 
30 30 224J 
3CC022EC 
30CG225C 

3LCC2270 
33':  32280 
30002293 
1C0023GC 
3G1C2310 
30032320 
30U02330 
300C234C 
30C0235C 
30  ii  0  2  363 
30102370 
301 02380 
30002390 
331 02413 
33302410 
30102420 
30C02430 
30:.0244C 
3GC0246C 
30 1 0248  C 
3000^470 
30302483 
300024PQ 
30C025CO 
3CG0251G 
■*0002520 
3G  u02533 
30C02540 
3CC02550 
3 j  C  C  2563 
300025 7C 
3  0  C  0  2  5  8  0 
30C0259Q 
30:G26i 1 
3CC 12610 
30  C  02620 
30002630 
3CG3264C 
30  C  0  2650 
300C2660 
3C1C267C 
300C268C 
300026°C 
30C027C1 
30C02710 
3::-027?0 
30002730 
3C00274C 
10002750 


o  o  o  o 


380  WRITF(6,1180)PERTPn,CO9E(N),  (STOR(J,I>  ,J=1,NV) 

GO  TH  490  . .  __ 

300  WRITF(6,1190>PE'»Tno,COOF(N>  ,  (STD»(J,I>  ,J=1,NV) 
400  CONTINUE 

300  0  F0PM4T  (1H1,16X,4A1C  7  1H- ,*ST0f?ED  RESOURCES*  > 
REMAINING  PART  HTLL  OUTPUT  THE  TOTAL  AMOUNT  USED 


30002760 

_ 2J11UL27Z0. 

30002780 
30  9  0  2700 
3G0028C0 
30002810 
30002820 


DURING  EflOH  °ERIOO  ..  _  . 70CQ2A30 

30002840 


WRT  TF ( 6 , 20  00 )  (TITLFCT) , 1  =  1,4) 

33002850 

H  =  2 

30002860 

GO  TO  6 

3000*970 

205 

N  =  0 

39G0288C 

OO  3C0  1=1, NP 

30  CO  2890. 

K  =  I YP (  I )  • IN Y°* 1 

3C0029C0 

IF(K.LE.O)  go 

TO  3CC 

30002910 

on  206  J=1,NV 

30QG292C 

206 

E»T'T|J,K) =EXIST< J,K) -STO® (J, I) 

30002930 

N  =  N  +  1 

30002940 

GO  TO  (210,220 

1,230,240, 250,260, 270, 280 ,290) ,NV 

30002950. 

210 

**17^(6, 1110) 

PERTOOtCOOF(N)  , (EXIST  <J,K> ,J  =  1,NV) 

3090299-9 

GO  TO  300 

30002970 

220 

WRITF (6,1120) 

PERTOO, CODE (N) , ( EX TST ( J, K> , J=1 , NV> 

30002990 

GO  TO  300 

30002990 

230 

W°I TF (6 , It  30  I 

PERTOO,COOE(N) ,(EXIST(J,tO ,J=1,NV> 

30C030L0 

GO  TO  300 

30 CC  3010 

240 

WRITE ( 6 , 1140 ) 

RF°TOO,COOE (N) ,(EXTST(J,K) ,J=1,NV) 

30003020 

GO  TO  3 0C 

3CG0303Q 

250 

WRITF (6,1150) 

PE°IOP, COPE (N) , (EX TST (J, K> ,J=1,NV) 

30  C  3  3049 

GO  TO  393 

300Q3GF0 

260 

WRITE ( 6 , 1160 ) 

PERIOD, CODE (N) ,(EXTST(J,K) ,J*1,NV) 

30  C  0  3060 

GO  TO  300 

. .  30 00 3070. 

270 

WRI TF (6 , 11 70 ) 

PED IOD, CODE (N) , (EXIST ( J  ,  K> ,J=1,NV) 

30303090 

.GO  TO  3CG 

30CC3C9Q 

280 

WRITE ( 6 , 1180 ) 

PERIOD, CODE (N) , (EX TST (J, K) , J=1 ,NV) 

3C003ir0 

GO  TO  300 

3G0C3110 

29- 

WRITF (6,1190) 

P E° TOD, CODE (N) , (EXIST (J, K> ,J=1,NV) 

*0  0  03 1 20 

300 

continue 

.  .  ,...3.QJ0313iL 

RETURN 

70  CC  3140 

2000 

FORMftT ( 1W1 ,15X 

,4410  /  1H-,*T0TAL  RESOURCES  USED*  ) 

30  GO  31 50 

FNO 

30003160 
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luOu 

IQ 


233  3 

20 

lO^J 

so 

114j 

4C  u  0 
100 

110 

3010 

15  3 
ISO 

2jG 


suiphittne  setup 

rnHXGN  7VFCSTG/  VN»Hr(lJ>  ,C,LENP,VLTFE  (1  .)  .INMdC  ,15)  , 
v/COST  (10 ,5)  ,N4«FN{  1  0)  , COSTS  (30 , 3) 
rnHHOM  /issirsz  rNap(S000,4),cnoF(20),PE'’<10),IYP(10>,LYP(lQ> 

Connon  /nuTS/  nftMPM(>c»  ,SALE(20)  ,S«VE{20)  ,  E X  1ST < 1 0 , 20)  , 

0U°CH  (10  ,20  >  ,STPP(1  T,,2C  >  ,  S  »L  V  (  1  C  ,  ’C  )  ,  PPGC  t  2J  >  ,P9DT (20 ) 

CniMnN  /P»P4MS/  epTnT,INYP,L»ST, NV,NP, TOT, TITLE(4) , COST 

OTNFNSTON  TFMP(4)  _  , 

H4T8  I’/T,I°T ,  IFD/8HVrHICLE  ,8HPr»IOD  ,8HFNDT4PLE  / 

MU?  =  r 
N°T -C 

PE  40(5,100  0) FMAHF, TMYP,L4ST,NV,NT,NP 
FOPM4T  (  48,  2*  ,  ST5) 

°F  40 ( 5 , 100  0)  TT4RLF 
IF ( IT40LF. FO. IVT)  GO  TO  20 
IF( TT4PLr.EO. T°T)  GO  TO  SO 
TF( IT40Lr.EQ. TFO)  GO  TO  100 
WPITF(ft,2000) ITA«LF 

FOPM4T (1H-.A8 ,*  T c  NOT  PFCOGU'IZEO  PY  SETUP*) 

STOP 

NV9=NVP*1 

PEA0(5, 4CCC) VN4HF (NV°> , VL IFF (NVP) 

P£40(5,117a)  (VC  OST (N VP , I )  ,1  =  1,5) 

FO“M4T (5F10.2) 

GO  TO  10 
NPT=Nt»T*l 

PF4  0(5 , 1140)  TYP(»'PT)  ,LYP  (NPT)  ,  P  'P(NPT  )  ,°POT  (N°T) 

FOPM6T  (  14,15,  l*  ,8?,F8 .2) 

GO  TO  10 

FOOM4T(48,11Y,I2) 

CONTINUE 

DPOT(NPT*l>  =  0. 

CONTINUE 

PE40(0,3GOe)  I,  (T  =  MP(  J)  ,  J=l,4) 

FOPM4T(I5,4X,41,-'4?) 

IF(FOF, 0)200, 150 
DO  ISO  J=l,4 
CN4P(I, J)rTFMO(J) 

GO  TO  110 
PFTUPN 
END 


30003170 

?0bu3180 

30 0C  31°0 

3  cot  32 10 

*0003210 

3C003220 

33  003230 

30003240 

30003250 

33  003250 

300C327C 

30003280 

30OQ33Q0 

30:  )33rc 

30033310 

3C0U332C 

30  C03330 

3C‘.  31343 

30  00  3350 

30L033S0 

3000 3370 

30003380 

30003393 

30:  O',400 

30003410 

30003420 

31003430 

3J0C344Q 

30CC34cC 

300034S0 

3C  0  3  3470 

33103483 
30CC34PQ 
3CC035CO 
3C  oO  3510 
3100352C 
30003530 
30003540 
30003553 
3000356C 
30003570 
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ITRN 


iteration  count 


SUBROUTINE  VALUES(N,TSTART,IENO,  VAL)  __ _ _ 

COMMON  /VECSTG/  VNAHF  (10  >  ,C,LENo  ,  VLIFE  (T.,1  ,  INH  { 1C  ,~16>  , 

*  VCOST(10,5) ,NAMFN(10) ,COSTS(30 ,3)  l 

COMMON  /8ASICS/  CHAR  (  5000 , 4)  ,  CODE  (20>  ,  PE«  ( 1 0»  »  I  VP  (  1 0 »  ,L  YR  (1 0 ) 
COMMON  /OUTS/  OANOMC’OI  ,SAL6(20)  ,SAVE ( 20 1 , EX  1ST ( 10 , 20)  , 

*  DURCH (10,20) »ST OR (10*20) ,SALV(1G,20> ,PROC(20> ,PROT(20> 

,  COMMON  /PARAMS/  PDTOT,  INYR,  LAST,  NV,NPf  TOT,  TITLE(4)  ,  COST 

CALL  YPCOST(N) 

I  =  TST  APT-INYR 

II=TENO-ISTAPT+l 

K=1 

OO  10  J=l, IT 
1  =  1+1 

IF(T.IE.O)  GO  TO  in 
OANOM(I)=OANOM(I>  +COSTS(Jf K) +VAL 
CXIST ( N  t  T) =EXIST(M,I) +VAL 

1a  continue 


IF(IENO.EQ.LAST)  K=K  +  1 

SALE  (I)  =COSTS(J,K)  +VAL  +  SAL£(H 

SALV(N,I)=VAL+SALV(N,T) 

RETUPN 

END 


_  30003580 
30003500 
30003600 
30003610 
300Q362Q 
30003630 

_ 30.001640 

30003650 
30003660 
30003670 
30003680 
30C03680 
1QQ037C0 
30003710 
30003720 
30003730 
30003740 
30  C  0  3750 
......  .30003760 

3C003770 
30003780 
30 00 3780 
30G038C0 
'  30C0381G 
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X 


o  o  o  o  o  no  oo  no  n  o  o  o  o 


subroutine  ypcoskji 

C  A  SU90P'ITINE  TO  COMPUTE  THE  OPERATING,  S AL V  AG 
C  COSTS  YFA9  or  rEAP.  ALSO  THE  YEARLY  NOTHRAlL 
common  /VECST  0/  VMAMFUO),  C ,LENP ,  VLIFEd 
*  VC0STCltf5)  ,  NAMSN(lO),  C0STS(TC,3> 
INTEGER  vnamf,vltee 

C  ASSUME  THE  OPERATING  ANO  MAINTANCE  COST  INC°E 
C  A  YF A®  (NOT  A  COMPOUND  ®ATE  INCEASE) 

P  =  0.C 


LCT  X  =  THE  1ST  Y FA p 


ANO  M.  COST.  THEN 

X+(1*P)»XM  +  2*R)*X* 

X  =  VC0ST(J,2I /(1C.C  ♦  45.0*R) 

ASSUME  NO  PFPIOO  IS  LONGER  THAN  6  VFAPS. 

T  0  =  VL  IFr  (J )  *10  1 

00  10  1=1, IB 

O0STS(T,l)  =  (1.0  ♦  FLOAT(I-l)*P)»XMVC0ST(J,4>*MT-l)> 
10  CONTTNUP 


lOCOAE’O 
10G08643 
1CCC8650 
10008660 
10008670 
13CG868C 
100CA6Q0 
100087 CO 
10008710 
10008720 
1000«7?G 

.  ..♦(H-9*P)»X  =  VCOST(J,2)  1CCG874G 

10008750 


E*  ANO  TPUNCATTON 

ING  SAVING  IS  COMPUTED. 

0),  TNH(10,16), 


ACES  AT  9*100  PEP-CENT 


A  VEHICLE  AFTER  I  YEARS  OF  SERVICE  IS 


ASSUME  THC  SALVAGE  VALUE  OF 
(ALPHA)**I  *PURCHASC  COST. 
ALPHA=0.5 
Y=VCOST (J, 1) 

no  2?  i=i, tp 

Y  =  ALDH A*Y 
COSTS(I,2)  =Y 
2 j  CONTINUE 


ASSUME  TPUNCATTON  AETEP  IYEAPS  OF  SERVICE  IS 
(VLTFE-T) '(PURCHASE  COSTi/VLIFE 


Y=VCOST (J, 1)  /VLTEF(J) 

no  33  T  =1, IB 

IX=VLTFF(J)-T 

TF  (TX.LT.C)  IX=C 
COSTS  (  T  ,3)  =  I X  * Y 
S3  CONTINUE 
RETURN 
ENTRY  MOTH 

ASSSUME  THE  MOTHPALLTNG  SAVING  IS  Rl»100  PE® 
°l=0 .93 


CENT  OF  THE  FIRST  YEAR 


10008760 
13  GO  8770 
10009793 
1CCC8790 
10008800 
10CC9810 
10L0882C 
10008830 

10008850 
10C0986C 
10  00  9870 
10C  08880 
10009890 
icr.099rc 
10GC8910 
1C008P20 
100CB970 
1 0  G  3  8  94  3 
1GC0895C 
10CG896C 
10008970 
10:G899J 
10CL89PQ 
10CC9000 
10CCPC10 
COST-X 


OO  546  IL=1,LENP 

546  C=C-C.l*Pl»VCOST(J,2)»VCOST(J,4)  **(IL-1) 
C  =-X  *  PI 

C=-VCOST (J, 21/(13. C  ♦  45. 0*R)  *  ®1 
°ETU°N 

eno 


1CC09080 

10009090 
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ERROR  MESSAGES  FROM  MATRIX  GENERATOR 
.  .  is  not  a  table  name." 

This  message  indicates  that  the  input  deck  is  not  properly  con¬ 
structed  since  the  program  has  read  a  card  which  should  have  been  a 
header  card  but  was  not.  The  location  of  the  error  can  be  narrowed  down 
by  checking  the  output  listing  to  see  which  tables  have  been  correctly 
read.  This  error  terminates  execution. 

"Vehicle  name  .  .  .  not  defined  in  a  vehicle." 

This  message  is  output  when  a  task  table  is  being  read.  It  indica¬ 
tes  either  that  the  vehicle  name  is  misspelled  or  located  improperly  on 
the  card,  or  that  the  task  table  has  preceded  the  vehicle  table,  if  the 
vehicle  table  exists.  This  error  also  terminates  execution. 

"The  period  tables  are  out  of  order." 

This  message  indicates  that  the  first  year  of  the  period  just 
read  was  not  equal  to  one  plus  the  last  year  of  the  last  period  read. 

This  can  be  caused  by  improper  sequencing  or  improper  definition  of  the 
periods.  This  error  will  cause  execution  to  terminate. 

"Warning — the  number  of  tables  input  was  not  the  expected  number." 

This  message  does  not  terminate  execution,  but  does  indicate 
that  there  was  a  difference  between  the  number  of  tables  indicated  on 
the  title  card  and  the  number  actually  read  by  the  program. 

"Incorrectly  read  file  .  .  .  columns  read  as  ..." 

"The  M-l  column  was  .  .  .,  unable  to  find  RHS  mark." 

"Reached  EOF  while  writing  column  .  .  .  and  row  ..." 

These  three  error  messages  all  refer  to  errors  encountered  when 

trying  to  convert  the  MPS36O  file  to  the  file  for  BBCAV2.  If  one  of 
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these  errors  occurs,  a  major  problem  exists  within  the  program.  As  a 
result  these  prevent  the  creation  of  the  BBCAV2  file,  but  allow  the  pro¬ 
gram  to  execute  to  completion  to  give  the  analyst  the  most  information 
possible  about  the  problem. 

ERROR  MESSAGES  FROM  MAIN  FROGR/M 
"BLIST  size  exceeded" 

BLIST  is  the  array  used  for  storing  nodes  of  the  branching  tree. 

It  is  presently  dimensioned  to  handle  25  nodes.  When  there  exist  more 
than  25  nodes  which  have  been  defined  but  have  not  been  evaluated,  this 
message  is  generated.  It  indicates  that  this  particular  problem  is  con¬ 
verging  very  slowly,  and  if  one  desires  an  accurate  answer  then  the  arrays 
EKBL,  PSIGL,  NXBL,  XNXBL,  and  BLIST  should  be  enlarged.  This  error  causes 
the  system  to  print  out  the  best  solution  found  and  proceed  to  the  next 
problem. 

"Time  is  up  .  .  .  cycling  to  next  problem." 

''Have  solved  max,  no.  of  LP  probs." 

These  two  messages  inform  one  that  the  solution  which  is  output 
is  not  necessarily  optimal  but  was  caused  by  one  of  the  input  parameters. 
The  first  message  indicates  a  violation  of  the  time  indicated  by  the 
second  field  of  the  real  parameter  card.  The  second  message  is  a  result 
of  reaching  the  limit  on  the  number  of  nodes  (LP  problems)  which  is  set 
in  the  last  field  of  the  integer  parameter  card. 

"Premature  EOF  on  a  matrix  tape  at  column  ..." 

This  message  indicates  that  the  size  of  the  tape  file  does  not 
correspond  with  the  size  indicated  on  the  integer  parameter  card.  It 
also  gives  an  indication  of  the  size  of  the  tape  file  for  comparison 
against  that  which  was  input.  This  error  terminates  execution  of  the 
program. 
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10 — column  not  located  in  NT  reads" 


"Row — key  not  in  core" 

"Insert  cannot  find  rejected  column" 

"PIVOT— PIVOT  less  than  PIVTOL" 

"KEYCH — essential  packet  no  basic  column" 

These  five  error  messages  are  used  exclusively  for  debugging,  and 
should  not  occur  in  normal  operation.  The  general  cause  for  this  is 
that  some  section  of  core  has  been  overwritten  accidently. 

"PIVOT  dropped  column  ..." 

This  message  indicates  that  a  column  was  removed  from  the  basis 
during  the  inversion  process.  This  occurs  when  the  input  basis  is 
not  feasible,  and  when  numerical  errors  have  caused  the  current  basis  to 
"drift"  out  of  the  feasible  region. 

ERROR  MESSAGES  FROM  REPORT  GENERATOR 
".  .  .is  not  recognized  by  SETUP." 

The  routine  SETUP  has  encountered  an  error  in  the  input  deck  while 
attempting  to  read  a  table  name.  This  error  terminates  execution. 

"Error  in  interpretation  of  .  .  . " 

The  program  has  been  unable  to  determine  the  meaning  of  the  seven- 
character  code  indicated  in  the  message.  If  the  code  is  a  valid  one 
(one  of  the  forms  shown  in  Fig.  11 ),  then  there  is  probably  an  error  in 
the  period  descriptions  of  the  input  deck.  There  is  also  possibility 
of  other  errors  in  the  input  deck  or,  as  a  last  resort,  of  errors  in 
the  reference  list  file.  If  the  code  is  not  a  valid  one,  then  the 
error  must  be  in  the  reference  list.  This  error  also  terminates  execution. 
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GLOSSARY 


This  section  contains  the  mnemonic  definitions  for  all  three 
programs — GENLCP,  BBCAV2,  and  REPGEN.  It  is  arranged  into  two  major 
sections.  The  first  section  lists  the  mnemonics  in  labeled  common — 
then  the  local  variables  contained  within  each  subroutine,  for  each 
of  the  three  programs,  respectively.  The  second  section  is  an  overall 
alphabetical  listing  for  handy  reference.  Note  that  in  this  listing, 
the  same  mnemonic  may  have  two  or  more  meanings.  Each  entry  is 
identified  here  as  a  local  or  global  variable,  and  is  cross-referenced 
to  the  first  section.  Use  of  the  two  sections,  in  conjunction,  should 
eliminate  any  ambiguity. 


SECTION  1 . G-2 

SECTION  2 . G-25 
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Section  I 


GENLCP  CODING  DEFINITIONS 


COMMON/VECSTG/ 

VNAME  (10) 

C 

LENP 

VLIFE  (10) 

INH  (10,  16) 

VCOST  (10,5) 
NAMEN  (10) 

COST  (30,  3) 
COMMON/ALTSTG/ 

ALTER  (288,9)  - 

YAVL  (10) 
COMMON/TSKSTG/ 

U  (7,  288,  9)  - 

NTSK  (9) 

COMMON/ PRDSTG/ 

NPERYR  (10,  3)  ~ 

NPTASK  (10,  9)  - 
FTASK  (10,  9)  - 


vehicle  names 

temporary  storage  for  cost  data 
length  of  period 

maximum  life  of  resource  (vehicle) 

number  of  each  type  resource  inherited  from  each 
year 

cost  data  for  each  resource 

pointers  for  numbering  resources 

yearly  operating,  salvage  and  truncation  costs 

array  used  for  eliminating  infeasible  alternatives 
from  tasks 

year  resource  first  available 

array  of  task  alternatives 
number  of  alternatives  in  task 

first  and  last  year  of  period  and  number  of  tasks 
in  period 

ID  number  of  each  task  in  period 

multiplicative  factor  for  all  values  in  associa¬ 
ted  task  for  each  period 


LOCAL  VARIABLES 
GENLCP 

ALPHA  -  temporary  storage  for  attrition 

AU  (l6)  -  temporary  storage  for  alternatives 
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BUDG  (10) 

CMAX 

FNAME 

IHVN  (10) 

INHYRS 

ITABLE 

LIFER 

LY 

MAXL 

MCOL 

NAMES  (10) 

NINHP 

NIV 

NL  (10) 

NN  (10) 

NPP 

NFT 

NRD 

NROW 

NT 

NTR 

NV 

NVEHU  (10) 

NVR 

NYR 

ONE 


-  limit  on  procurement  expenditures  in  each  period 

-  temporary  cost  storage  for  ordered  resources 

-  file  name 

-  pointers  for  inherited  vehicles 

-  number  of  years  from  which  vehicles  are  inherited 

-  temporary  storage  for  table  name 

-  temporary  storage  for  remaining  useful  life  of 
a  vehicle 

-  last  year  of  problem 

-  temporary  storage  for  vehicle  life 

-  number  of  columns  in  matrix 

-  temporary  pointers 

-  number  of  inherited  periods 

-  number  of  inherited  vehicle  types 

| temporary  storage  used  in  formatting  output 

-  number  of  periods 

-  number  of  period  tables  read 

-  number  of  vehicles  having  R&D 

-  number  of  rows  in  matrix 

-  number  of  tasks 

-  number  of  task  tables  read 

-  number  of  vehicle  types 

-  indicates  if  vehicle  used  in  period 

-  number  of  vehicle  tables  read 

-  temporary  storage  for  last  year  of  period 

-  "1.0" 

-  "-1.0" 


ONEM 


SY 

UB  (10) 

UMAX 

YEARS  (21) 
YRINT  (20) 

YRCOST 

ALPHA 

R 

R1 

YINTERP 

JSUB  (10) 
VMDf 

MATFILL 

C 

CNAME 

CTEMP 

IROWTP  (100) 

ITEMP 

R 

RNAME  (120) 
RTEMP 
RVAL  (100) 
VAL 


-  start  year  of  problem 

-  calculated  upper  bounds  on  resources 

-  temporary  storage  for  greatest  quantity  of  a 
specific  vehicle  which  might  be  used  in  a  task 

-  stores  inherited  years 

-  scale  factor  for  all  tasks  in  period 

-  rate  of  decrease  in  salvage  value 

-  rate  of  increase  in  operating  cost 

-  portion  of  operating  cost  refunded  for  mothball¬ 
ing  resource 

-  pointers  for  vehicle  subscripts 

-  temporary  storage  for  minimum  quantity  of  vehicles 
which  can  be  used  for  a  task 

-  "COLUMNS" 

-  column  name  for  which  RVAL  is  being  derived 

-  temporary  storage  for  column  name 

-  indicates  row  type;  all  set  to  zero  except 
generalized  upper  bound  rows  which  are  set  to  4 

-  temporary  storage  for  first  letter  of  RNAME 

-  "RHS" 

-  row  names 

-  temporary  storage  for  row  names 

-  vector  of  values  in  each  row  for  a  specific  column 

-  temporary  storage  for  value  of  specific  row  and 
column 
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BBCAV2  CODING  DEFINITIONS 


common/c VI/ 

IP  (12) 

RP  (12) 

TMP  (10) 
COMMON/ CV5  / 

T  (100,  10) 

BO  (100) 

BLO  (10) 
ULO  (10) 

CO  (10) 

COMMON/CV3/ 

M 

N 

NCF 

FHIT 

UZ 

USP 

USM 

EKO 

MFLUS 

COMMON/CVU/ 

ix  (no) 

x  (no) 


-  storage  for  input  parameters  on  integer  parameter 
card 

-  storage  for  real  parameters,  first  four  locations 
are  for  input  from  laal  parameter  card,  rest  are 
temporary  storage 

-  temporary  storage 


-  storage  for  columns  of  matrix  associated  with 
nonlinear  variables 

-  right -hand- side  vector 

-  set  of  lower  bounds  on  nonlinear  variables 

-  set  of  upper  bounds  on  nonlinear  variables 

-  vector  for  linear  approximation  for  nonlinear 
cost  functions 

-  number  of  rows  in  matrix 

-  number  of  columns  in  matrix 

-  number  of  nonlinear  variables 

-  cost  of  a  nonlinear  solution 

-  cost  of  best  nonlinear  solution 

-  uz  (i  +  <=  )_1 

-  UZ  (1  -  <=  )-1 

-  cost  associated  with  the  lower  bounds  of  the  node 

-  number  of  rows  in  the  matrix  including  the  cost 
row  (M  +  l) 

-  columns  in  basic  solution 

-  values  associated  with  columns  in  IX 
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rxz  (no) 
xz  (no) 

XCON  (10) 


-  columns  in  best  solution 

-  values  associated  with  columns  in  IXZ 

-  stores  values  found  in  X  which  are  associated 
with  the  nonlinear  variables 


COST 

C0MMPN/CV5/ 

SIGMk  (100,  4)  - 

TSIG 

LSTMAX 

COMMON/CV7/ 

NFHASE 

NF1 

CFX 

IOPT 

NOP 

NOPS 

NEWXZ 

COMMON/CV8/ 

NXBK 

XK 

NOBOL 
EKBL  (25) 

cqmmon/c V9/ 

PSIGL  (25) 

NXBL  (25) 

XNXBL  (25) 

BLIST  (25,  131)- 


cost  of  the  solution  returned  from  the  LP 


stores  information  which  defines  the  current  node 

temporary  storage  associated  with  EKO 

maximum  length  which  the  branching  list  has 
achieved 


stores  LP  phase  code 

signifies  feasible  solution  when  set  equal  to  1 
no  longer  used 

used  to  flag  unbounded  solution 
node  number 
nodes  solved 

flags  when  new  best  solution  found  and  should 
be  output 


index  of  branching  variable 
value  of  branching  variable 
number  of  nodes  on  list 

EKO  value  associated  with  each  node  on  the  list 


lower  bound  associated  with  each  node  on  list 

index  of  branching  variable  for  each  node 

value  of  branching  variable  for  each  node 

branching  list;  contains  right-hand-side  vector, 
plus  upper  bounds,  lower  bounds,  and  linear  cost 
approximations  for  nonlinear  variables 
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COMMON/TMX/ 

TMO 

EXT 

COMMDN/CORE/ 

AJ  (5000) 

JA  (101) 
JAK  (101) 
JAREJ  (101) 

COMMON/PARAMS/ 

TMAX 

ITKINV 

INVF 

KL 

K2 

K3 

k4 

K5 

COMMON/INPUT/ 

INPUT 

INPUTM 

INPUTN 

COMMON/FILES/ 

IA1 

IA2 

IMAP 

COMMON/STATE/ 

IROW 


-  time  SET  was  called 

-  time  when  time  limit  on  problem  will  expire 

-  columns  in  core  plus  basis  inverse 

-  in-core  column  disc  indices 

-  dummy  storage  area 

-  set  to  1  when  corresponding  in-core  c'olumn 
rejected 

-  maximum  time  before  MAPOUT 

-  iteration  of  next  invert 

-  invert  frequency 

-  not  used 

-  not  used 

-  output  control  parameter 

-  XCHECK  control  parameter 

-  maximum  LP  iterations  before  MAPOUT 

-  file  containing  input  matrix 

-  number  of  rows  in  matrix 

-  number  of  columns  in  matrix 

-  disc  file  for  matrix  less  GUB  rows 

-  disc  file  for  packed  matrix  less  GUB  rows 

-  file  for  starting  and  terminating  basis 

-  current  selected  row 
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ITRN 

JCOL 

JOUT 

JPOS 

NDJS 

NPIF 

NREJ 

COMM3M/LIMS/ 

JNCORE 

MAXTRY 

NCRMAX 

NSCAN 

NTRY 

COMMON/IXX/ 

IX  (100) 
COMMON/XX/ 

X  (100) 

commoh/tols/ 

CTOL 

DERTOL 

DJTOL 

PERTOL 

FTVTOL 

ZERO 

COMI-iON/BASIS/ 

IBASIS  (101) 
KEYS  (101) 


-  iteration  count 

-  current  selected  column 

-  rejected  column  index 

-  selected  column  index 

-  number  of  negative  BJ's 

-  number  of  primal  infeasibilities 

-  number  of  rejected  in-core  columns 

-  number  of  columns  in  core 

-  maximum  number  of  in-core  iterations 

-  maximum  number  of  columns  which  fit  in  core 

-  number  of  disc  reads 

-  number  of  in-core  iterations 

-  indices  of  solution  columns 

-  values  of  solution  columns 

-  cost  tolerance  for  infeasibility 

-  dual  error  tolerance;  not  used 

-  DJ  tolerance 

-  primal  error  tolerance 

-  pivot  tolerance 

-  smallest  recognized  number 

-  basic  columns  for  non- (TUB  rows 

-  storage  of  GUB  key  columns 
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REPGEN  CODING  DEFINITIONS 


common/djs/ 

DJ  (100) 

common/moves/ 

BNDJ 

DMAX 

DUALER 

PRMLER 

THETA 

COMMON/I/ 

IC 

ICOST 
I PHASE 
IPI 
JRHS 
L 

M  , 

MC 

MPL 

NT 

COMMON/A/ 

ALPHA  (101) 
COMMON/B/ 

BETA  (101) 

COMMON/C/ 

GAMMA  (101) 
COMMON/D/ 

DELTA  (101) 


1 

-  Values  of  current  in-core  DJ's 

-  value  of  current  column  bound 

-  largest  DJ  value  stored  , 

-  dual  error;  unused 
j-  primal  error;  unused 

-  step  chosen  by  ROW,  adjusted  in  PRIMAL 

■  !  \ 

\  -  current  cost  row  j 

-  user's  cost  row 

-  current  LP  phase 

-  current  location  of  PI  vector  in  basis 

-  user's  input  RHS 

-  number, of  GUB  rows 

-  number  of  active  interval  rows 

-  last  logical  column 

-  M  plus  L  1 

-  total  number  of  columns  (Ml  +  INPUTN) 

!  I 

-  work  space,  usually  current  column  inverse 

-  work  space  usually  values  of  basic  and  key 

variables  ; 

-  not  used 

\ 

-  not  uspd  i 

\ 
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F 


COMMON/ROWTYP/ 

IROWTYP  (101) 
COMMON/NAMES/ 

NAME  (600) 
COMMON/BOUNDS/ 

BOUNDS  (100) 
IBDS  (100) 
NBDS 
COMMON/RHS/ 

I 

RHS  (100) 
LOCAL  VARIABLES 
BBCAV2  and  B0X1 
LIT  (10) 

BBK 
BBK2 
C0ST1 
C0ST2  i 
CT  (10) 

EPSI 

ESIG 

ICOL 

INDIC 

LSTFRE  (25) 

MNC 

MNX 

NCF1 


user's  input  row  types 

state  of  each  variable  or  column 

values  of  upper  bounds 
column  indices  of  bound  columns 
number  of  bounds 

stores  user’s  current  right-hand-side 


temporary  storage  for  BLO 

lower  bound  on  branching  variable 

value  of  branching  variable 

solution  cost  for  lower  branch 

solution  cost  for  upper  branch 

.temporary  storage  for  CO 

epsilon  value  from  real  parameter  card 

temporary  storage  for  EKO 

temporary  storage  for  column  index 

indicates  which  branch  (upper  or  lower)  is  being 
solved 

gives  locations  of  storage  areas  on  the  branch¬ 
ing  list  which  are  vacant 

the  negative  of  NCF 

the  negative  of  N 

I 

NCF 
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NCPU 

NFREE 

NMIN 

NOL 

NORA 

NXB 

PHI  and  PH2 
PMIN 

TSTO  (130) 
TITLE  (4) 

UBK 

UBK2 

ULT  (10) 

US 

INITA 

AJ  (100) 

DUM1  and  DIM? 


READIN 

NC 


-  NORA  +  3  *  NCF 

-  number  of  gaps  (empty  location  between  two  filled 
locations)  in  the  BLIST 

-  index  of  the  lowest  bound  on  the  BLIST,  or  N-l, 
depending  on  where  it  Js  used 

-  index  for  storage  on  BLIST 

-  M 

-  temporary  storage  for  next  branching  variable 

-  temporary  storage  of  values  from  GETPHI 

-  value  of  lowest  bound  on  BLIST 

-  temporary  storage 

-  alphanumeric  title  of  problem 

-  upper  bound  on  branching  variable 

-  difference  between  upper  bound  and  value  for 
branching  variable 

-  temporary  storage  for  ULO 

-  temporary  storage  for  USP 

-  temporary  storage  for  column  of  matrix 

-  temporary  storage  for  reading  unused  sections 
of  tape 

-  number  of  basis  cards  to  be  read  from  input 


TIMEC 

SECS 

XX 

GETASQ 

TEMP 

NEM1 


-  actual  CPU  clock  time 

-  elapsed  time  on  problem 

-  location  used  while  swapping  contents  of  two 
locations  in  an  array 

-  number  of  elements  in  an  array  minus  one 
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GETC 


1 


DIF 

FX1  (10) 
FX2  (10) 
ICX 


NXBRN 

BIT  (10) 

CT  (10) 

YT  (10) 

FX1  (10) 
FX2  (10) 
DIF  (10) 

NDX  (10) 
NFX 

XT  (10) 

PRESET  AND  PARAMS 
IBMAX 


JBMAX 


NORA 


-  difference  between  upper  and  lower  bound  for  a 
variable 

-  cost  function  values  for  lower  bounds 

-  cost  function  values  for  upper  bounds 

-  number  of  variables  for  which  cost  slopes  are 
to  be  derived 


-  temporary  storage  for  BK) 

-  temporary  storage  for  CO 

-  differences  between  solution  point  and  lower 
bounds 

-  cost  function  values  for  lower  bounds 

-  cost  function  values  for  solution  point 

-  differences  between  cost  functions  and  linear 
approximations 

-  indices  of  nonlinear  variables 

-  the  negative  of  NCF 

-  solution  values  for  nonlinear  variables 


-  maximum  number  of  nodes  which  may  be  stored  on 
BLIST 

-  maximum  number  of  words  of  information  which  may 
be  stored  for  each  node  in  BLIST 

-  number  of  rows  in  the  matrix  including  the  objec¬ 
tive  function 


B  (100) 
I0RG 
MR0WS 
NCHGS 


-  basis  inverse  stored  by  rows 

-  origin  of  basis  inverse 

-  user's  number  of  rows 

-  user's  number  of  bound  columns 
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NCOLS 

NWAJ 

SETUP 

ID 

IKOST 

INON 

PKT1 

PKT 

10 

ALPHA 

B 

JCOL 

JNT 

KEY 

K0L1 

K0L2 

KOL 

NAAM 

NAME 

MCK  (100) 

ZS 

Z 

MAPIN 

ATBND 

BASIC 

BNDJ 

B 


-  user's  number  of  columns 

-  storage  dimension  of  the  array  AJ 

-  local  row  type  being  processed 

-  temporary  storage  of  user's  cost  row 

-  temporary  number  of  non-GUB  rows  found 

-  temporary  count  of  GUB  row  packet  columns 

-  actual  GUB  row  column  being  processed 

-  column  to  be  written  or  read 

-  address  of  origin  of  basis  inverse 

-  core  position  of  column  being  read 

-  index  of  columns  read 

-  index  of  key  column  to  be  located 

-  last  column  read  on  file  IA1 

-  last  column  read  on  file  IA2 

-  column  to  be  located  on  either  file  or  packet 
number  of  desired  key 

-  not  used 

-  column  name,  or  position  in  core  to  which  column 
is  read 

-  temporary  storage  of  packed  column 

-  parameter  used  to  pack  coefficients 

-  parameter  used  to  pack  index  of  coefficient 

-  "ATBND" 

-  "BASIC" 

-  value  of  bound 

-  origin  of  basis  inverse 
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CARD  (8) 


-  image  of  map  card 


ENDER 

ID 

INVERSE 

KEE 

MM 

NAMES  (5) 

NULL 

PKT 

ROWS 

TYPE1 

TYPE2 

MAPOUT 

IBAS 

IBND 

IKEY 

INLL 

JCOL 

JNCORE 

MAPBAS  (100) 

MAPBND  (100) 

MAPKEY  (1000) 

MAPNLL  (10) 

MM 

MP1 

INVERT 

ATBND 


"END" 

column  number  from  map  card 
"INVERS ” 

"KEY" 

number  of  elements  in  basis  inverse 
column  indices  from  map  card 

-  "NULL" 

-  storage  of  column  packet 

-  "ROWS" 

-  first  word  on  map  card 

-  second  work  on  map  card 

-  count  of  basis  variables 

-  count  of  bound  variables 

-  count  of  key  variables 

-  count  of  null  variables 

-  user's  column  index  of  column  processed 

-  number  of  columns  in  core 

-  basic  column  indices 

-  bound  column  indices 

-  key  column  indices 

-  null  column  indices 

-  number  of  elements  in  basis  inverse 

-  M  plus  1 

-  column  type 


BASIC 


-  column  type 


BNDJ 

B 

IORG 

ITYPE 

JNT 

JORG 

JTYPE 

KORG 

PKTO 

PKT 

FEASCH 

BNDJ 

B 

IORG 

JPKT 

KEY 

NB 

SUMIE 

SUM 

PRIMAL 

BASIC 

B 

EPSI 

ITYPE 

JOUTPK 

JPOSPK 

NBVPKT 


-  cound  on  current  column 

-  origin  of  basis  inverse 

-  origin  of  first  element  in  B 

-  row  type 

-  current  column  index 

-  origin  in  AJ  to  which  column  is  read 

-  variable  type 

-  origin  in  AJ  to  which  key  column  is  read 

-  GUB  packet  number  of  column  in  AJ  (KORG) 

-  GUB  packet  number  of  column  being  processed 

-  bound  on  current  column 

-  basis  inverse 

-  origin  of  any  row  in  B 

-  GUB  packet  of  current  column 

-  switch  to  return  key  processing  to  key  loop 

-  number  of  basic  variables  in  a  packet 

-  sum  of  infeasibilities 

-  value  of  variable  before  feasibility  adjustment 

-  column  type 

-  basis  inverse 

-  value  of  new  basic  variable 

-  type  of  step  to  be  used 

-  GUB  packet  of  column  rejected 

-  GUB  packet  of  column  entering 

-  number  of  basis  variable  in  selected  GUB  row 


> 
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NPEGLM 


NDEG 

NEWROW 

STATUS 

ATBND 

BASIC 

B 

COST 

JNSCAN 

JNTO 

JNT 

MNTRY 

NCOLS 

NJOUT 

NOTE  (4) 

X 

ROW 

BASIC 

B 

IB 

IORG 

IROW 

ITYFE 

JCOL 

JORG 

JOUT 

JFKT 


-  maximum  rejection  due  to  degeneracy 

-  number  of  degeneracy  rejections 

-  row  for  column  changing  from  key  to  basic 

-  state  of  a  column 

-  state  of  a  column 

-  basis  inverse 

-  value  of  current  objective  function 

-  columns  in  core  +  1000  times  number  of  rewinds 
of  file  IA1 

-  index  of  last  column  read  from  disc 

-  last  column  read  from  disc  (if  MNTRY  =  0  ) 

-  number  of  in-core  iterations 

-  number  of  columns  read  from  disc  file  IA1 

-  name  code  of  column  to  be  rejected 

-  40  character  comment 

-  elapsed  CPU  seconds 

-  state  of  a  column 

-  basis  inverse 

-  basic  column  index 

-  origin  of  basis  inverse 

-  row  calling  parameter,  row  of  zero 

-  type  of  step;  1-unbounded,  2- column  to  zero, 

3- column  to  bound 

-  core  index  of  selected  column 

-  core  origin  of  selected  column 

-  column  to  be  rejected 

-  GUB  packet  of  column  selected 
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W 


JPOS 


-  disc  index  of  column  selected 


KORG 

STEP 

THETA 

COLUMN 

ATBND 

BASIC 

B 

JCOL 

JKEY 

JORG 

JPKTO 

JPKT 

JTYPE 

KORG 

NCORE 

NDJST 

NULL 

PTKEY 

CHECK 

ATBND 

BASIC 

B 

DJ 

JCOUNT 

JEBCH 

JNT 


-  origin  of  KEY  column  for  packet  JPKT 

-  step  to  current  row 

-  best  feasible  step 

-  logical  column  state 

-  logical  column  state 

-  basis  inverse 

-  core  position  of  selected  column 

-  core  position  of  key  for  JCOL  (if  in  GUB  row) 

-  origin  of  a  row  in  B 

-  current  stored  GUB  key  packet 

-  GUB  packet  of  new  column 

-  type  of  column  selected 

-  origin  of  KEY  in  AJ 

-  number  of  columns  in  core 

-  number  of  negative  DJ’s  from  disk  read 

-  column  state 

-  PJ  value  for  current  KEY  JPKT 

-  state  of  column 

-  state  of  column 

-  basis  inverse 

-  current  column  sensitivity 

-  count  of  columns  processed 

-  number  of  columns,  checked  in  current  batch 

-  index  of  current  column 
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JORG 

JTYPE 

KORG 

NBCH 

NFBCH 

PIKEY 

PKTO 

FKT 

INSERT 

B 

DJ 

DMAX 

D  (15) 

ID  (15) 

JORG 

JFOSR 

JPOS 

JREJ 

NFBCH 

N 

KEYCH 

B 

IB 

IORG 

IROW 

JCOLPK 

JCOL 


-  origin  in  AJ  to  which  columns  are  read 

-  type  of  column  being  processed 

-  origin  of  key  column  in  AJ 

-  number  of  columns  in  batch 

-  number  of  columns  retained  from  batch 

-  DJ  for  current  key  at  KORG 

-  packet  of  current  key 

-  packet  of  new  column,  JNT 

-  basis  inverse 

-  DJ  for  column  to  be  stored 

-  largest  DJ  of  stored  columns 

-  DJ's  of  stored  columns 

-  indices  of  stored  columns 

-  origin  of  vacancy  for  column  in  AJ 

-  disc  index  of  column  to  be  rejected 

-  disc  index  of  column  to  be  stored 

-  origin  of  rejected  column  in  AJ 

-  number  of  columns  to  be  saved  from  batch 

-  number  of  columns  currently  saved 

-  basis  inverse 

-  disc  index  of  basic  column  for  current  row 

-  origin  of  a  row  in  B 

-  row  to  which  key  column  is  shifted  when  made  basic 

-  GUB  packet  of  column  being  moved  from  KEY 

-  column  to  be  moved 
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JKEY 

JORG 

MPK 

SUM 

PIVOT 

ALPHA 

B 

DIVOT 

IORG 

IROW 

JORG 

JP 

PTV 

SETBND 

I 

J 

K 

DOT 

DOT 

DOTS 

M 

SUM 

X 

Y 

BOUND 

BOUND 

IB 

J 


-  candidate  key  column 

-  origin  of  a  row  in  B 

-  row  of  column  which  was  KEY 

-  temporary  storage 

-  column  to  he  pivoted  into  basis 

-  basis  inverse 

-  candidate  pivot  while  searching  for  best 

-  origin  of  pivot  row  in  B 

-  pivot  row 

-  origin  of  a  row  in  B 

-  basic  column  for  a  row 

-  pivot  used 

-  input  disk  column  index 

-  absolute  value  of  I 

-  new  state 

-  double  precision  inner  product  of  X  and  Y 

-  single  precision  inner  product  of  X  and  Y 

-  vector  dimension 

-  double  precision  accumulator 

-  input  vector 

-  input  vector 

-  value  of  column  bound  (or  10*^70) 

-  bound  index  in  IBDS 

-  input  disc  column  index 
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KEYFIND 


I 

-  dummy  variable 

JAT 

-  potential  column's  in-core 

position 

JPKT 

-  GUB  packet  number  for  column 

JTYPE 

-  column  type 

keyfind 

-  position  of  key  found 

KEY 

-  column  number  of  key  to  be 

located 

PKT 

-  GUB  packet  of  desired  key 

ESCAPE 

AALPHA 

-  "ALPHA" 

ABASIS 

-  "BASIS" 

ABETA 

-  "BETA" 

ADELTA 

-  "DELTA" 

ADJ 

-  "DJ" 

AGAMMA 

-  "GAMMA" 

AJAREJ 

-  "JAREJ" 

AJA 

-  "JA" 

AKEY 

-  "KEY" 

ANAME 

-  "NAME  " 

B 

-  basis  inverse 

XCHECK 

ATBND 

-  logical  column  state 

AT 

-  dummy 

BASIC 

-  logical  column  state 

B 

-  basis  inverse 

CALLER 

-  calling  name 

IORG 

-  origin  of  a  row  in  basis 

inverse 
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JAJ 


-  disk  index  of  an  in-core  column 


JEND 

JORG 

J1 

J2 


-  origin  of  vacant  work  space  in  AJ 

-  origin  of  a  column  in  AJ 

-  first  column  in  column  printout 

-  last  column  in  column  printout 
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REPGEN  CODING  DEFINITIONS 


COMMON/VECSTG/ 

VNAME  (10) 

C 

LENP 

VLIFE  (10) 

INH  (10,  16) 
VCOST  (10,  5) 


NAMEN  (10) 
COSTS  (30,  3) 

COMMON/BASICS/ 

CHAR  (5000,  4) 

CODE  (20) 

PER  (10) 

IYR  (10) 

LYR  (10) 
COMMON/OUTS/ 

OANDM  (20) 

SALE  (20) 

SAVE  (20) 

EXIST  (10,  20) 


-  stores  resource  names 

-  temporary  storage  location  used  in  calculating 
savings  from  resource  storage 

-  length  of  period  under  consideration 

-  expected  resource  life 

-  not  used 

-  the  five  costs  associated  with  each  resource 
are  stored  in  this  array;  in  order,  they  are 
salvage  and  truncation,  operating,  R&D,  retention 
rate,  and  procurement.  (Explained  in  detail 

in  matrix  generator  description.) 

-  not  used 

-  cost  of  operating  (l),  selling  (2),  or  truncating 
(3),  a  resource  in  the  1st  thru  30th  year  of  its 
life 


-  storage  of  column  names  which  have  been  broken 
down  into  their  four  meaningful  parts 

-  storage  of  the  numbers  1  -  20  in  two  digit 
alphanumeric  form 

-  pointers  for  two  digit,  alphanumeric  code  for 
periods 

-  initial  year  of  each  period 

-  last  year  of  each  period 


-  operating  cost  for  each  year 

-  salvage  or  truncation  value  for  each  year 

-  savings  from  resource  storage  for  each  year 

-  number  of  each  type  resource  available  in  each 
year 
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PURCH  (10,  20) 

\ 

STOR  (10,  20) 
SALV  (10,  20) 

FROC  (20) 

PROT  (20) 
COMMON/ PARAMS/ 

RDTOT 

INYR 

LAST 

tov  | 

NP 

TOT 

TITLE  (4) 

COST 

LOCAL  VARIABLES 
SETUP 

FNAME 

IEb 

IPT 

ITABLE 

IVT 


-  number  of  each  type  resource  purchased  in  each 
year 

-  number  of  each  type  resource  stored  in  each  year 

-  number  of  each  type  resource  disposed  6f  at  end 
of  each  year 

i 

-  procurement  funds  spent  during  each  period 

\ 

-  procurement  funds  1  available  during  each  period 

\ 

-  total  R&D  expenditures 

\ 

-  initial  year  of  probjem  \ 

-  last  year  of  problem 

\ 

-  number  of  resource  types 

\ 

-  number  of  subperiods 

-  number  of  subperiods  plus  1 

-  name  of  specific  solution 

-  total  cost  of  solution 


-  problem  title  (not  used) 

-  "ENDTABLE" 

-  "PERIOD" 

-  table  name 

-  "VEHICLE" 


NPT 

NT 

NVR 

TEMP  (4) 


-  period  tables  read  in 

-  number  of  tasks  (not  used) 

-  number  of  resources  read  in 

-  temporary  storage  for  column  names 


INSOLN 

BLANK 
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IEND 


IND 

ISTART 

S 

VAL 

W 

X 

cinfd 

PERIOD 

ONE 

sum  ; 

SUMT 

TCOST 

TOTAL 

TPROC 

PINFO 

TEMPI 

TEMP2 

BLANK 

PERIOD 


-  last  year  of  resource  existance 

-  column  number  temporary  storage 

-  first  year  of  resource  existance 

-  "S" 

-  column  value  temporary  storage 

-  "W” 

-  "X" 

\ 

-  "PERIOD" 

-  "01" 

-  total  cost  for  a  period 

-  total  cost  for  all  periods 

-  temporary  storage  for  total  procurement 

-  "TOTAL" 

-  correction  factor  for  procurement 


jtemporary  storage  locations  for  alphanumeric  output 


-  "PERIOD" 


TOTAL 


"TOTAL" 


AALPHA 


I 


-  •  PHS  • 

(  LOCAL  -  VAIN  OPOGRAM»G  c<;rSDr  ) 

AR  AG  1  G  -  'Pjcjct  ’  . . 

(  LOCAL  -  VAIN  PROGRAM «G  P’cCAPF  ) 

AEETA  -  • RRtA ' 

(  LOCAL  ~  VAIN  PROGRAM ic  eccAPE  ) 

ADFLTA  -  •Oc’LTA* 

(  LOCAL  ~  VAIN  PROGRAM  •  G  rc^APE  ) 

AO J  -  *DJ'  .  ~ 

(  LOCAL  -  VAIN  PROGRAM  i  c  rer/ipr  ) 

AGAVVA  -  »  O  A VM A • 

(  LOCAL  “  MAIN  PROGRAM  »c  e-cOARF  ) 

AJAREJ  -  .JaRej« 

(  LOCAL  -  VAIN  PROGRAM ic  FeCAPP  ) 

AJA  -  • JA • 

(  LOCAL  -  VAIN  PROGRAM. G  FCGSPP  ) 

AJ(EOOO)  -  rOLUVNG  IN  CORF  PLUG  RAGI«:  IMVERGE 

(GLORAL  ~  VAIN  RROGPAM.c  COMMON  /  CORF  /  ) 

AJ(IOO)  -  TEMPORARY  STORAGE  for  column  of  matrix 

<  LOCAL  -  VAIN  PROGRAV.G  INITA  ) 

4<cy  -  iKFVi 

(  LOCAL  -  VAIN  PROGRAV.G  Ff,rAPc  ) 

AL°HA<101)  -  **'ORK  GPArcr,  t JGuALLY  CURRENT  r^LU^N  INVFPFc 
(GLRPAL  ~  VAIN  PROGRAM  .C  rnwON  /  A  /  ) 

ALPHA  -  COLUMN  TO  «F  WR  I TTFN  OR  RcAn 

<  LOCAL  -  VAIN  PROGRAM . c  p  j 
ALPHA  -  TEMP  STORAGE  FOR  ATTRITION 

(  LOCAL  ~  MATRIX  GFN^RATOR. G  GENLCP  ) 

ALPHA  -  RATr  OF  OFCR^AGF  IN  GALVAGe  VALlF 

<  LOCAL  -  MATRIX  GENFRATOR •  G  YRCOGT  ) 

ALPHA  -  COLUMN  TO  «F  DIVOTEO  INTO  °AGIc 

(  LOCAL  ~  MAIN  PROGRAM. c  DIVOT  ) 

ALTER  <288,  R)  -  ARRAY  'JGED  FOR  ELIMINATING  INFEAGIrlF  ALTFRN ATIVeS >ro’‘.«  ta^K 
(GLORAL  -  MATRIX  GFNCR A  T OR  *  G  COMMON  /  ALTGTG  X  ) 

ANAVE  -  INA»F. 

(  LOCAL  -  VAIN  PROGRAM,  c  rci-APF  ) 

AT  _  DUMMY 

(  LOCAL  -  MAIN  PROGRAM  *  G  X'-HFCK'  ) 

ATBNO  -  •  AToNO • 

(  LOCAL  ~  MAIN  PROGRAM «c  VAPIN  ) 

ATENR  -  COLUMN  TYor 

(  LOCAL  ~  MAIN  PROGRAM* G  INVERT  ) 

ATONd  -  LOGICAL  COLUMN  STATE 

(  LOCAL  -  MAIN  PROGRAV.G  XCHFC*'  ) 

(  LOCAL  -  VAIN  PROGRAM. G  OH^CK  ) 

(  LOCAL  -  VAIN  PROGRAV.G  COLUMN  ) 

(  LOCAL  “  MAIN  PROGRAV.G  GTATUG  ) 

AU  (16)  -  Te-vio.  ctORAGE  FOR  ALTERNATIVE^ 

(  LOCAL  ~  MATRIX  GENFRATOR* G  GENLrR  > 
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R  -  RAR(P  lMV«rO«SC- 

(  LOCAL  -  MAIN  PROr.PiM  i  <:  L^  ) 

<  LOCAL  ~  VAIN  PROGQAViR  yoNFC*-  ) 

(  LOCAL  -  VAIN  PP'lGOSVtc  fpgAOF  j 

<  LOCAL  -  VAIN  PPOGPAVip  r>tvoT  ) 

(  LOCAL  -  VAIN  PROGRAM  •  P  <c-VCH  ) 

(  LOCAL  -  VAIN  PROGP  AV • R  JnrfRT  ) 

(  LOCAL  -  VAIN  PROGPAVip  rcY  ) 

(  LOCAL  ~  VAIN  PROGRAM  ip  '-'>1  IJVN  ) 

(  LOCAL  -  VAIN  PROGRAM  ip  pr«i ./  ) 

(  LOCAL  ~  VAIN  PROGPAVIP  ptatijR  ) 

(  LOCAL  _  VAIN  PDOGPAVic  nnjvAL  ) 

(  LOCAL  ~  VAIN  PPOGQAVIP  FFAPCH  ) 

(  LOCAL  -  VAIN  ROOGPAVtc  j 

'(  LOCAL  -  VAIN  PROGP  AV  •  0  maPIN  > 

(  LOCAL  -  VAIN  PROGOAV • p  ) 

c  Ac  I  C  -  'PArl'-i 

(  LOCAL  ~  VAIN  PROGPAVip  vaPIN  > 
nA^  |  C  -  COLljVN  TVDP 

<  LOCAL  -  VAIN  PROC-OAV  ip  INV^PT  J 

(  LOCAL  -  VAIN  OROGCAV • P  05 J  VAL  > 

°  A  P I C  -  LOGICAL  COLUVN  GTATR 

(  LOCAL  “  VAIN  PROGP  A  v  •  P  X'-H=’R|R  ) 

(  LOCAL  -  VAIN  PQOGPAVIP  rurr<  ) 

(  LOCAL  -  VAIN  PROGRAM  ip  t  )VN  ) 

(  LOCAL  ~  VAIN  PROGRAVip  pr ATUC  ) 

(  LnC  Al  -  VAIN  PROGOAV  ip  d'mj  ) 

Ray  -  LO‘'.,erR  PO'JNO  ON  RPAnCHING  VAPIARl^ 

<  LOCAL  -  VAIN  PROGPAVIP  ocrAVP  ) 
a“<P  -  VALUR  OF  RPANOHING  V  AR I A?Lr 

<  LOCAL  ~  VAIN  PROGRAVIP  on<-AV?  > 

PRTAtlOl)  -  WORN  RPACF,  UcUALLv  VALUER  of  RARIC  AND  <rY  VAPIAnLcc 
(GLOBAL  ~  “AIN  PROGPAV  •  R  COWON  /  R  /  ) 

nl _ ANK  -  i  • 

(  LOCAL  -  DRPQPT  GRNRRATOPI P  INROLN  ) 

<  LOCAL  -  RRDOPT  GrNRPtTno i p  ojmfo  ) 

nL  I  RT  (  •  1  0  I  )  -  RPANOHING  L  I  GT  »  CONTAINR  p  JGHT-HANO-R  I  op  vR'otod,  dli  ic  ijpood 

oo.'kjrjp,  lo'.i.TQ  ROUND'S  AND  LIN-AP  OORT  APopoy J M A T I ONR  FOQ  NON— LINEAR  V  A  D  I  A n  L r 
(GLORAL  ~  VAIN  PPOGPAViR  oovmON  /  ^\/P  /) 

RLO(IO)  -  RR~  OF  LOW“P  "’Al  INOR  On  NON-LImRUO  VARIABLE 

(GLO°Al  -  MAIN  PROGRAM  IP  r5«MON  /  rv5  /  ) 

ALT  no  -  TrMOORAQv  RTOPAGF  FOP  «L0 

(  LOCAL  -  VAIN  PROC-OAMip  on  CAV?  ) 

(  LOCAL  -  MAIN  PROGRAM  i  R  njyron  ) 

RNDJ  -  RO’JNo  oN  odprc-mt  COLUVN 

(global  -  vain  progqay«s  oovmon  /  vovpr  /  ) 

BOUNOGCIOO)  -  VALUER  OR  'jPPFQ  RCUNDG 

(GLORAL  -  main  PROGP  am  •  p  roMMON  /  ROtiNOP  /  ) 

BOUND  -  VALiF  Oc  COLUMN  ROUND  (CP  10  *  *  to) 

(  LOCAL  —  VAIN  PROGPAVip  r»0(jM0  ) 

RO(JOO)  _  RIGHT— HANO—R IDR  vc^T0p 

(GLORAL  -  MAIN  PROGRAM  ic  r ON  /  '~\f>  /  ) 

QUDG  (10)  -  LIvlT  ON  noO'iRR'FNT  FVRFNP I  tijRtc  Im  paoh  o^PIon 
(  LOCAL  -  MATRIX  GFNBRATORiR  GFNLC°  ) 
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c  -  temp,  storage  for  cost  data 

(Global  -  matrix  generator  if  common  /  vecstg  / _ > 

c  -  TEMPORAOY  storage  location  use  o  In  ALCULAT ING  SAVINGS  FROM  RF  C0URr<r 

C tod AGE 

(Global  -  report  generators  common  /  vecstg  /  > 

C  -  • COLUMNc  * 

(  LOCAL  -  MATRIX  GEneRatOD«s  MATEILL) 

CAllFR  -  CALLING  NAME 

(  LOCAL  -  MAIN  PROGRAM ic  XCHEC<  ) 

CARO(e)  -  iMASfr  OF  MAP  CARO 

(  LOCAL  -  MAIN  PROGRAM • S  MAPIN  ) 

CFX  -  NO  LONGER  used 

(Global  -  main  program's  common  x  cv7  /  > 

CHAR  (5000.4)  -  STORAGE  OE  COLUMN  NAMES  WHICH  HAVE  Bp-FN  BROKEN  OOWN  INTO 
THEIR  FOUR  MEANINGFUL  PARTS 

(Global  -  report  generator »c  common  /  basics  /  > 

CM AX  -  TEMP.  COST  STORAGE  FOR  ORDERING  oecOURCEc 

(  LOCAL  ~  MATRIX  GENERATOR'S  GENLOP  ) 

CnAmE  _  COLUMN  NAVC-  FOP  WHICH  RvAL  IS  ef|nG  DERIVED 

(  LOCAL  -  MATRIX  GENERATOR ' c  matfilL) 

CODF  ( 20  )  -  cTORAGE  OE  the  fsjyvinFRc  |  -  ?  o  IN  TWO  DIGIT  ALPH  ANuMFO  T  r  form 

(Global  -  redort  generator's  common  /  basics  /  > 

COST  -  VAlUF  OE  CURRENT  OBJECTIVE  EyNCT  I  ON 

<  LOCAL  -  MAIN  PROGRAM • C  CTATUS  ) 

COST  -  TOTAL  COST  OF  COLUTION 

(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  RARAMC  /  ) _ 

COST  -  COST  Cc  THE  SOLUTION  RETURNED  FROM  THE  LP 

(Global  -  main  program  is  common  /  cv a  /  ) 

COST  I  -  SOLUTION  COST  FOR  LOWER  BRANCH 

(  LOCAL  -  MAIN  PROGRAM l C  onriv?  ) 

C0ST2  -  SCLlJT  IaN  cost  FOR  UDDCR  BRANCH 

(  LOCAL  -  MAIN  DROGRAM'C  PDfav?  ) 

COSTS  (30.3)  -  COST  OE  PREDATING  (1).  SELLING  (?)  OR  tpuNOA^ING  (3)  A 

RESOURCE  IN  THE  jst  thru  BOTH  YEAR  OE  ITS  l  IFF 

(GLOBAL  -  MATRIX  GENERATOR  IF  COMMON  /  VEOSTG  /  ) 

(GLOBAL  -  REPORT  C-^PATACic  Common  /  y/rrsTG  '  ) 

CO  (  1 C )  -  VECTOR  EOR  linear  APPROXIMAT  ion  Epp  NON-LINEAR  COST  EIJNCTIONS 

(Global  -  main  program »s  common  /  cvo  /  ) 

CTEVP  -  TEflo.  STORAGE  EOR  COLUMN  NAME 

(  LOCAL  -  MATRIX  GENERATOR'S  MATFILL) 

CTOL  -  COST  TOLERANCE  EOR  I NEe as  I B IL I TY 

(Global  -  main  program's  common  /  tols  /  ) 

C T (  1 0 )  -  temODRAPY  STORAGE  FOR  CO 

(  LOCAL  -  MAIN  PROGRAM'S  BOOAVO  ) 

(  LOCAL  -  MAIN  PROGRAM'S  vynpM  ) 

DELTA (101)  -  NOT  used 

(GLOBAL  ~  MAIN  PROGRAM'S  COMMON  X  D  /  ) 

OERTOL  -  DUAL  error  TOLERANCE,  NOT  USED 

(global  -  main  program's  common  ✓  tols  /  ) 

DIE  -  DIFFERENCE  BFTWeFN  UPPER  AND  LOWER  oOUNO  FOR  A  VARIAblf 
(  LOCAL  -  MAIN  PROGRAM'S  GrTC  ) 

-  DlEFFRENrpS  RETwffn  COST  FUNCTIONS  AND  LINEAR  APRRQX I  MAT  I ONS 
(  local  “  MAIN  PROGRAM  is  NXBRN  ) 


D I E ( 10) 


DIVOT 


-  CANoIDATF  PIVOT  WHIL^  GF ARCHING  for  RFciT 

<  LOCAL  “  WAIN  PROGRAMS  r>lV0T  ) 

D  J  (  1  0 0 )  -  VALUER  Oc  CUR^NT  IN-CORF  DjK 

<GLOoiL  -  '"AIN  PROGRAM *G  /  AJC  /  ) 

DJ  -  DJ  FOR  COLUMN  TO  nF  GTORop 

<  LOCAL  ~  VAIN  PROGRAMIG  j^cc-pj  ) 

'"V  OJ  -  CuRRrNT  COLl  l**N  GFNC  I  x  I  V  t  ry 

(  LOCAL  -  WAIN  PROGRAM *G  'Mrr^-  ) 

DJTCL  -  DJ  tOLFRANCC 

(GLOPAL  -  WAIN  PROGRAM  »F  COMMON  /  TOLG  /  ) 

DM  AX  -  LARGr-cr  DJ  OF  G  TOPP'D  COLUWNG 

(global  -  wain  program »g  common  /  vovfg  /  > 

DOT  -  DOuPLg  °RCC  I c  I  ON  INNFR  PRODUCT  OF  X  AND  V 

<  LOCAL  ~  VAIN  PROGRAM «G  DOT  ) 

DOtg  -  GINGl  f  P'R^CIGION  INNFR  RRODijot  of  X  AND  Y 

(  LOCAL  ~  VAIN  PROGRAM »G  DOT  ) 

D(  IF)  -  D  J  •  e  AC  GT°Rfd  COLtJWNF 

{  LOCAL  -  VAIN  PROGRA V » G  InGfRt  ) 

OUALH'R  -  DUAL  fDRor,  (JNUGC-d 

(GLOPAL  ~  MAIN  PROGRAM  »G  <-p'.«»»ON  /  VOVFG  /  ) 

Duv i  and  duw?  -  temporary  gtcragf  for  Reading  unugfd  gectiong  of  tapf 

(  LOCAL  -  VAIN  PROGRAM »g  JnITA  ) 
f<PL ( 2F  )  -  cKA  VALUF  AGGOC I 4TCD  W PH  cftrH  NODF  ON  THF  l I GT 

(GLOnAL  -  VAIN  PROGRAM  «G  oamwON  /  AyO  /  ) 

FYO  -  COGT  aGGOC  lATFD  I T H  THc-  LO'>,rD  POlJNDG  OF  THF  NODr 
(GLOPAL  ~  WAIN  PROGRAM  IG  PAWON  /  CVP  /  ) 

GND=rR  _  itrN„, 

<  LOCAL  -  WAIN  PROGRAM  *G  ‘»A°1N  ) 

rpc  I  -  CPg  1 1  ON  VAL'.’F  FROM  RfAL  PAPAVFTC-o  CARD 

(  LOCAL  -  VAIN  POOGRAMIG  pq  c  a v  p  ) 

ADC]  -  vALU"  of  NFlil  cj-Jr  VARIAPLF 

(  LOCAL  -  VAIN  PROGRAM 'G  PRIMAL  ) 

“DIG  -  TFwRdRARY  gtORAGF  FOR  f<o 

(  LOCAL  -  VAIN  PROGRAM «G  capjv?  > 

EX  I  GT  (  1  0  «?0  )  -  NUVGfr  OF  facH  TYPE  RESOuRCF  AV  AIL  APLr  IN  EACH  Y<~AR 

<  GLOPAL  -  REPORT  GfnfR-AT'ap  » G  COMMON  /  OUTF  /  ) 

cyT  -  T  I  MG  i„hfnj  T I  MO  LIMIT  ON  PPOPLFV  WILL  "XPI3r 

(GLOPAL  -  MAIN  PBAPnjMie  oo**MON  /  Tvy  /  } 

FNAVE  -  PROoL^V  t  i  TLr  (NOT  U^DI 

(  LOCAL  -  RFOORT  GfnfpaTOR  »  G  ccat(.|R  ) 

F  N  A  V  F  -  FILr  NAME- 

(  LOCAL  -  MATRIX  GFNFRATOP  *  G  Gfnjlop  ) 

FXl(IO)  -  CoGT  Ft  (MOTION  VALUFG  COP  LGWpD  nnuMDc 

<  LOCAL  -  MAIN  PROGRAM • G  prTt  ) 

(  LOCAL  -  MAIN  PROGRAM'S  NX  RPN  ) 
f x? (10)  -  cogt  function  value?  for  udofci  round 

(  LOCAL  -  MAIN  PROGRAM  I  c  rr-Tr  j 
FXP(ID)  -  Cogt  cUNrTjGN  VALUFC  FOR  G0UUTPN  POINT 
(  LOCAL  -  MAIN  RPOGPAWIC  mx°PN  ) 
gamma  (101)  -  NOT  'jeep 

(GLOPAL  ~  VAIN  OROORAMIG  '•'"WON  /'"/'> 

I  -  DUVW  VAPllnLc 

(  LOCAL  “  WAIN  RROGOAMie  k-ryc^n  ) 
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I  -  INPUT  DICK  COLUMN  INDEX 

(  LOCAL  ~  MAIN  PROGRAM'S  SETc<ND  ) 

I  A 1  -  DISC  *MLC  FOP  MATRIX  LESS  GlM=»  ROWS 

(GLOBAL  ~  MAIN  PROGRAM'S  COMMON  /  FILES  /  ) 

IA?  -  DISC  r]LP  FOR  PACKED  MATRIX  L^SS  G(JP  ROWS 

(GLOBAL  ~  MAIN  PROGRAM'S  COMMON  /  FI|_FS  /  ) 

I«  -  BASIC  COLUMN  INDEX 

<  LOCAL  -  MAIN  PROGRAM  i  c;  OOW  > 

IP  -  DISC  InD«=-x  Oc  PASIC  COLUMN  FOR  CURRENT  ROW 

(  LOCAL  ~  MAIN  PROGRAM'S  ) 

IP  -  POUND  I Nop X  IN  IPOS 

<  LOCAL  ~  MAIN  PROGRAM'S  POUND  ) 

I  b  As  -  COUNt  OF  PASIS  VARIABLES 

<  LOCAL  -  MAIN  PROGRAM'S  MAPOUT  ) 

IDAS  ISM  OJ>  -  PASIC  COLUMNS  FOR  NON-GUB  ROWS 

(GLOPAL  -  MAIN  PROGRAM'S  COMMON  /  PASls  /  ) 
IPDS(IOO)  -  COLUMN  INDICES  OF  BOUND  COLUMNS 

(GLOBAL  ~  MAIN  PROGRAM'S  COMMON  /  POUNDS  /  ) 

I PM AX  -  MAXIMUM  NUMBER  OF  NODES  WHICH  MAY  PE  STORED  ON  PL  I  ST 
(  LOCAL  -  MAIN  PROGRAM  is  poESET  ) 

IPNO  -  COUNx  OF  POUND  VARIAPL^S 

(  LOCAL  ~  MAIN  PROGRAM'S  MAPOUT  ) 

IG  -  CURRENT  gdst  ROW 

(GLOPAL  -  MAIN  PROGRAM'S  COMMON  /  I  /  ) 

ICOST  -  USER'S  COST  ROW 

(GLOPAL  -  MAIN  opoGOAM'S  COMMON  /  \  /  ) 

I  COL  -  TFMPpRARY  STORAGE  FOR  COLUMN  INOFX 

(  LOCAL  -  MAIN  PROGRAM'S  PQCAV2  ) 

ICX  -  NUMBER  OF  VARIARLFS  FOR  WHICH  COST  St  OPES  ARE  TO  PE  DERIVED 
(  LOCAL  -  MAIN  PROGRAM'S  O^TC  ) 

ID  -  LOCAL  ROW  TYPE  BEING  PROCESSED 

(  LOCAL  -  MAIN  PROGRAM'S  SFTUD  ) 

ID  -  COLUMN  NUMPFR  FPom  map  CARD 

(  LOCAL  -  MAIN  PROGRAM  is  MAPIN  ) 

I D ( 15)  -  I Nn I C^s  Oc  STORED  COLUMNS 

(  LOCAL  -  MAIN  PROGRAM  i  c  INSERT  ) 

ISO  -  • SNOT ft°LS ' 

(  LOCAL  -  REPORT  GENERATOR'S  SETU°  > 

I  END  -  LAST  YEAR  OF  RESOURCE  EXISTANCE 

(  LOCAL  -  REPORT  GENERATOR'S  INSOLN  ) 

IHVN  (10)  -  POINTFRS  E OR  INHERITED  VEHlOL^E 

(  LOCAL  -  MATRIX  GENERATOR'S  GENLCP  > 

IKEY  -  COUNT  OE  key  VARIAPLES 

(  LOCAL  ~  MAIN  PROGRAM'S  MAPOUT  ) 

I KO c T  -  TEMoCRARY  STOP AGF  OF  USER'S  COST  ROW 

(  LOCAL  ~  MAIN  PROGRAM'S  SETUP  ) 

IMAP  -  file  for  starting  AND  TERMINATING  PACJP 

(Global  -  main  programs  oommon  /  sjlcs  /  > 

INDIC  -  INDICATES  WHICH  "RANCH  (UPPER  OR  LOW^P)  IS  PF 1 NG  SOLVFD 
(  LOCAL  -  MAIN  PROGRAM'S  aoOAV?  ) 

IND  -  COLUMN  NUMPFR  TEMPORARY  STORAGE 

(  LOCAL  ~  REPORT  GENERATOR'S  INSOLN  ) 
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IN'H  (10*  16)  -  NUMRFR  OF  FAOH  TY°F  RFBOtjRCP  INHFRITFO  FROV  e-ACH  YF 60 

(Global  -  matrix  gfnfratorib  cowon  /  vfcbtg_/__) 

INH (10,16)  -  NOT  UFFO  . 

(global  -  rfport  gpnpratoris  common  /  v^cbtg  /  ) 

INHYRS  -  NUmBFR  OF  YFARS  FROY  WHICH  VFH I CLr^  ARF  tNHFRlTcD 
(  LOCAL  -  YATRIX  GFNpRATORiB  GGNL^P  ) 

INLL  -  COUNT  of  NULL  VA;’laPLcc 

(  LOCAL  -  "A  IN  PROGRAM  IB  MAROUT  ) 

I  NON  -  TFMPoRAQY  NUMRPR  OF  NON  GUB  ROW5  POUND 

(  LOCAL  ~  YU  IN  PROGP A Y  • c  ce-TUP  ) 

I  N°' )  T  -  F  I  i_C"  CONTAINING  INPUT  MATRIX 

( GLC°AL  -  MAIN  PROGRAM »B  COMMON  /  INPUT  /  ) 

I NPUT  Y  -  NIJYPFR  of  ROWF  IN  MATRIX 

(Global  -  yain  program  if  common  /  input  /  j 
INPUTN  -  NU'-RPR'  of  COLUMNS  In  MATRIX 

(Global  -  main  program «s  common  /  input  c  ) 

INVF  -  INVFOT  FRFQuFNCY 

(Global  -  main  ppogpayic  common  /  paramb  /  > 
invpRb  -  •  I  M'/FQS  • 

(  LOCAL  -  MAIN  PROGRAM »B  maPIN  ) 

I NvR  -  INITIAL  YCSR  0="  PROBLFM 

( GLOP Al  -  DF°OPT  GFNrRATOP • B  COMMON  /  PAPAVc  /  ) 

I^PT  _  uct"0  TO  FLAG  UN'FOuNOPO  SOLUTION 

(GlOqAl  -  MAIN  PROGRAM  «s  <*S\1V0N  /  C.M~>  /  ) 

POG  -  ORIGIN  OF  BAS  I  S  INVPRGF 

(  LOCAL  -  MAIN  PROGRAM  is  |_d  ) 

(  LOCAL  -  MAIN  PROGRAM'S  Roy  ) 

(  LOCAL  ~  MAIN  PROGRAM'S  INVFRT  ) 

I  COG  -  ORIGIN  OP  PIVOT  RO<”  IN  R 

(  LOCAL  -  YAIN  PROGRAM'S  DIVOT  ) 

IP3G  -  ORIGIN  op  a  row  In  HAS  I b  I nvpRsf 

(  LOCAL  -  MAIN  PROGRAM  •  e  yi-Hc-c<  y 
(  LOCAL  -  MAIN  PROGRAM  is  <PYCH  ) 

(  LOCAL  ~  MAIN  PROGRAM'S  cirac;OH  ) 

IPMABF  -  CUOQFNT  L°  PHASC 

(GLOBAL  ~  MAIN  PROGRAM  IS  '^V'.'ON  /  \  /  ) 

PI  -  CURRFnT  LOCATION  OF  °I  \/~CTOR  IN  oacp 

(Global  -  main  program •«  common  /  \  /  ) 

I°T  -  IDFRIOO* 

(  LOCAL  -  PROORT  GFNPRATORIS  S  F  T  U  P  ) 

10(12)  —  b  ToP  AGO  foq  INP'JT  BSOjMfrro?  On  j  mt^CFO  dAOAMFtfq  rftRi 

(GLOBAL  -  ''AIN  PROGRAM  •  c  '-o-«VON  /  C\/ )  /  j 

I ROWTYR  (101)  -  use-ois  INPUT  ROW  TYnrc 

( GLO°AL  ~  main  PROGDa.mic  common  /  ROwTYP  /  ) 

I  RO'oTP  (  1  00 )  -  I  NO  I  CiTC"  ROW  tvdc  j  ALL  c5T  TO  7FRO  c-XCFPt  cfn^R aH7 tco  (jdoco 

ROUND  ROWS  wHITH  APR  5rT  to  A 

(  L^cAl  -  MATRIX  GrNFRAT.oo  •  c  MATFILL) 

IRC'.’  -  CURRc-nt  c.FlpCTFO  row 

(GLORAL  -  MAIN  PROGRAM ib  common  /  CTAP  C  ) 

I  ROw  -  ROW  r  ALL  I NG  D  AR  A“'FTFR  •  ROW  OP  7PRO 

(  LOCAL  ~  MAIN  PROGRAM  is  DOW'  > 

I  ROW  -  »CW  TO  WHICH  KEY  COLUMN  IS  SMlFTFO  WHFN  MAOP  °ASIC 
(  LOCAL  -  MAIN  PROGRAM  •  B  t-ryfH  ) 

I  Row  -  PIVOT  DOW 

(  LOCAL  -  MAIN  PROGRAM ic  R l VOT  ) 
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I CTflPT 

Itaple 

ITF*'P 
ITNINV 
ITRN  - 
I  TYPE 


Finer  YC-aq  OF  REcOURCE 
(  LOCAL  ~  QFPOPT 


FY  I  «TAN ce 

GENERATOR'S  INSOLN  ) 


-  TinL1"  NAME 

(  LOCAL  -  MATRIX  GFNFRATOR'C  GENLrP  > 

<  LOCAL  -  REPORT  GEneR ATOP  •  S  SETUP  ) 

TcMn •  eTORAGF  FOR  rfRcr  l^teq  OF  QNAMF 

(  LOCAL  -  MATRIX  GENERATOR'S  MATF ILL  > 

-  ITERATION  OF  NEXT  INVERT 

(Global  -  main  program's  epvmon  /  daram<j  /  > 

ITERATION  COUNT 

(GLOBAL  -  MAIN  PROGRAM'S  c ommON  /  erATF  /  ) 
ROW  TYOE 


(  LOCAL  -  MAIN  PROGRAM'S  INVERT  ) 

I  TYPE  -  TYPe-  OF  CT^P  ♦  1 -UNBOUNDED.  P-OOnJMN  TO  ZEt?0« 

(  LOCAL  -  MAIN  PROGRAM • S  ROW  > 

<  LOCAL  -  MAIN  PROGRAM ' c  noiMAL  I 

IVT  -  «VFHI/-Lr» 


0 -COLUMN 


POUND 


(  LOCAL  -  REPORT  GENERATOR  * c  SETU®  ) 

IX(lOO)  -  iMDICEe  OF  SOLUTION  COLUMNS 

(GLOPAL  -  MAIN  PROGRAM'S  COMMON  /  I XX  /  ) 

ix(iiC)  -  Column^  in  basic  solution 

(Global  -  main  program »s  common  /  ova  /  j 

1X7(110)  -  COLUMNS  IN  PEST  SOLUTION 

(Global  -  main  program's  common  /  ova  /  ^ 

I VR (1C)  -  ImItIAL  YPAR  OF  cACH  period 

(GlOPAl  -  f.FPORT  GENERATOR'S  Common  /  BASICS  /  , 
J  -  ABSOLUTE  VALUE  OF  I 

(  LOCAL  ~  MAIN  PROGRAM'S  SETBND  ) 

J  -  INPUT  Dice  COLUMN  INOFX 

(  LOCAL  -  "AIN  PROGRAM »e  POUND  ) 

J1  -  eIRST  COLUMN  IN  COLUMN  PRINTOUT 

(  LOCAL  -  MAIN  PROGRAM'S  XCHECK  ) 
j?  -  last  column  in  column  printout 

(  LOCAL  -  MAIN  PROGRAM'S  XFHFC<  ) 

J  A  J  -  DISK  IN^EX  Oc  AN  In-COR*7  COLUMN 

(  LOCAL  -  MAIN  PROGRAM'S  XCHECK  ) 

JAJ  -  POTENTIAL  COLUMN'S  IN-CORE  pocITJcn 

(  LOCAL  -  MAIN  PROGRAM'S  XEYFNO  ) 

J  AX  (101)  -  r^UMMY  CTORAGF  AREA 


(GLOPAL  -  MAIN  PROGRAM'S  ccvvON  /  "n Df  /  ) 

JARFJC101)  -  etrT  to  l  '.'.'HcN  CORRe cdonO I NO  IM-CORE  COLUMN  RFjEOteo 


(GlOPAl  -  MAIN  PROGRAM'S  COMMON 
jam oi>  -  im-core  column  oisc  Inoi cec 

(Global  -  main  program »c  common 
JBMAX  -  maximum  number  OF  WORDS  OF  INFORMATION 
EACH  NOOF  In  blist 

<  LOCAL  -  MAIN  PROGRAM'S  oRESET 
JCOL  ~  CURRENT  SELECTED  COLUMN 

(GLOBAL  ~  MAIN  drOGOAM'S  COMMON 
JCOL  -  USER • <  COLUMN  INDFy  OF  COLUMN  RROCEesEn 
(  LOCAL  -  MAIN  rrogpam i s  m a POUT 
JCCL  -  COPE  POCITION  OF  SELfcTED  COLUmN 

(  LOCAL  ~  MAIN  PROGRAM K  COl UMN 
(  LOCAL  -  MAIN  PROGRAM'S  IO  ) 

(  LOCAL  ~  MAIN  PROGRAM  is  new  ) 


/  CORE  /  ) 

/  CORE  /  ) 

WHICH  MAY  BF  STORED  FOR 
) 

/  STATF  /  ) 

) 

) 
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JCOL  -  COLUMN  TD  RR  MOvPD 

(  LOCAL  -  MAIN  PROGRAM  •  g  *RYCH  )  _  . . . 

JCCLp<  -  GU”  OAC««=-T  OP  COLUMN  GFlNG  MOV^O  PROM  <frY 
(  LOCAL  -  main  PROGRAM i G  <CYCH  ) 

JCOijNT  -  COUNT  OP  COLUMNS  PROCPGc£rn 

(  LOCAL  "  MAIN  PROGRAM • c  rnrrv  ) 

JFNO  -  ORIGIN  Pr  VACANT  WOR<  PRA Cc  IN  Aj 

(  LOCAL  -  MAIN  PROGRAM  IP  Y'-H=-r<  ) 

jpr^CH  -  NUMRPR  OP  OOLUMNP  CHFCKFO  IN  CURRPNT  PATCH 
(  LOCAL  ~  MAIN  PROGRAM ic  PMRCk-  ) 
j^pv  _  CORP”  Roc  I  t  OK!  OR  Kr'PY  POR  JCOl  (Ip  r'|P  DOV  ) 

(  LOCAL  "  MAIN  RROGRAM.p  COLUMN  ) 

J«pv  -  CANDIOATR  k-RY  COLUMN 

(  LOCAL  ~  MAIN  PROGRAM *P  *RVCH  > 

JNCORF  -  njumoRQ'  OR  COLUMNP  IN  CORF 

(GlOqAl  -  MAIN  PROGRAM  i<=  COMMON  /  I.  I  MG  /  I 
(  LOCAL  -  MAIN  PROGRAM »P  maROUt  I 
JNPCAN  -  COLUMNP  IN  COOP  +  10-0*  NIIMPRO  OR  RPNlNOP  OR  R I  Lp  IA1 

(  LOCAL  -  MAIN  PROGRAM  «p  PTATijP  ) 

JMT  -  IND^V  op  -oLUMNc  RRAO 

f  LOCAL  ~  MAIN  PROGRAM »P  t -  ) 

JVIT  -  -ijfJQCk'T  COLUMN  INCRY 

(  LOCAL  -  MAIN  PROGRAM «c  AH- OF  ) 

(  LOCAL  ~  MAIN  PROGRAM iG  IMVPPT  > 

JMT  -  LAPT  COLUMN  PRAn  PROM  OIPC  (IP  ANTOV  =  0) 

(  LOCAL  "  MAIN  PROGRAM • P  GTATUG  ) 
jNT0  -  INOPY  OF  L  AGT  COLUMN  RFAO  P°0M  OIG- 

(  LOCAL  -  main  PROGRAM .  c  pTATUG  ) 
jORG  -  CORF  ORIGIN  OF  GELPCTPO  COLUMN 

(  LOCAL  -  main  PROGRAM  i  c  row  ) 

JORG  -  ORIGIN  OP  VACANCY  ROR  COLUMN  IN  a,J 

(  LOCAL  -  MAIN  PROGRAM »P  JNpRRT  ) 

JORG  -  ORIGIN  IN  AJ  TO  IVHICH  -OU'MN  I  <=  RPAO 

(  LOCAL  "  MAIN  PROGRAM  »P  OHRC*'  > 

(  LOCAL  -  MAIN  RROGRAM.p  !MVcQt  > 

JORG  -  ORIGIN  OF  A  QO<tf  IN  G 

(  LOCAL  "  VAIN  PROGRAM  IS  vcryr-H  ) 

(  LOCAL  ~  MAIN  PROGRAM  •  R  CRt.UMN  ) 

(  LOCAL  -  MAIN  PROGRAM  IP  P I VOT  ) 

JORG  -  ORIGIN  OR  A  COLUMN  IN  AJ 

(  LOCAL  -  MAIN  PROGRAM  ip  X-HFCK  ) 
jO'  jt  -  OF JpRTRO  COLUMN  IN-RY 

(GLOPAL  ~  MAIN  PROGRAM. S  rOMMON  /  CTATR  /  ) 

jo.  it  -  C0LU*'N  TO  °R  RRJ^CTpO 

(  LOCAL  -  MAIN  PROGRAM  •  c  o-'.i  I  ) 
jO'/tP’S  -  Gl  Jo  PApcrT  OF  COLUMN  RFJR-ti-o 

(  LO-AL  -  MAIN  PROGRAM i R  PRIMAL  ) 

jp  _  GA^IC  -CLUMN  ROR  A  RO'V 

(  LOCAL  ~  MAIN  DROGRAMic  OIVOT  > 
jp<T  -  Gu°  RACvrPT  0C  NR"1  column 

(  LOCAL  ~  MAIN  PROGRAM IG  COLUMN  ) 

(  LOCAL  ~  MAIN  PROGRAM i G  DAW  ) 
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JPKT 


-  GUR  RACKET  OF  CURRENT  column 

{  LOCAL  -  MAIN  PROGPAM'E  BRANCH  ) 
(  LOCAL  -  MAIN  PROGRAM • c  <fyFND  ) 
JP<TO  -  ClJP»FNT  STORED  Gu=*  KEY  PAC<C'T 

(  LOCAL  ~  VAIN  PROGRAM'S  COLUMN  ) 
JPOE  -  SELFcTRD  COLUMN  INOFX 

(GLOBAL  -  VAIN  PROGRAM'E  oommON  / 
JPO<=  -  DISC  I NOFX  OF  COLUMN  ?cLFCTro 

{  LOCAL  -  VAIN  PROGRAM QOW  ) 
JPOS  -  DISC  INDFX  OF  COLUMN  TO  STORED 

(  LOCAL  ~  VAIN  PROGRAM**;  INSERT  j 
JPOSPK  -  GUP  °ACKEt  OF  COLUMN  ENTERING 


ctatp 


/ 


) 


(  local  -  VAIN  PROGRAM » S  RRIMAL  ) 

JPOSR-  DISC  INDEX  OF  COLUMN  TO  BE  DEJECTED 

(  LOCAL  -  MA  IN  PROGRAM  »c  jmCc-RT  ) 
jo<rj  _  ORIGIN  OF  Rf JcCTEO  COLUMN  IN  Aj 

(  LOCAL  -  VAIN  PROGRAM 'E  INSERT  ) 

JRHC  -  USER'S  INPUT  RHC 

(GLOBAL  -  VAIN  PROGRAM «c  COMMON  /  I  /  ) 
jc  jo  (  1  O  )  -  oOINTFRc  POP  VrH  I  CLr  Rl  focCR  I 

(  local  -  MATRIX  GFN^PATOR'S  Y INTER0  )"" 
JTY°E  -  VARIARLE  Tvpe 


(  LOCAL 

-  MA  IN 

PROGRAM  »c 

INVERT 

) 

JTYPE  -  COLUMN  TYPE 

(  LOCAL 

-  MAIN 

PROGRAM'S 

KPYFND 

) 

(  LOCAL 

-  ma  IN 

PROGRAM • S 

CHECK 

) 

<  LOCAL 

-  MA  IN 

PROGRAM'S 

column 

) 

K  - 

NFW  *TATr 

(  LOCAL 

-  MA  IN 

PROGRAM  »E 

R-TRNO 

) 

K  1  - 

NOT  ijpc-O 

(GLORAL 

-  MAIN 

PROGRAM «  E 

COMMON 

/ 

DAQAME 

/ 

) 

KP  - 

NOT  USeT) 

( global 

-  main 

PROGRAM  »  E 

COMMON 

/ 

DARAMC 

/ 

) 

KB  - 

output  control  parameter 

(GLOBAL 

-  MA  IN 

PROGRAM  *  E 

COMMON 

/ 

PARAME 

/ 

) 

K4  - 

XCHECK  CONTROL  PARAMETER 

( global 

-  MA  IN 

PROGRAM • E 

COMMON 

/ 

RARAME 

/ 

) 

KB  - 

Maximum  Ld  ITPRATIONS  BEFORE  MflPOUT 

(GLOBAL 

-  main 

PROGRAM • E 

COMMON 

/ 

PARAME 

/ 

) 

KEP 

-  'KEY' 

(  local 

-  MA  IN 

PROGRAM ' E 

m  An  I  N 

) 

KEY 

-  INDEX  OF  KEY  COLUMN  TO  I 

BE  LOCATFD 

(  LOCAL 

-  MAIN 

PROGRAM ' c 

IP  ) 

(  LOCAL 

-  MA  IN 

PROGRAM »E 

KRYFND 

) 

KEY 

-  Sw/ITCh  TO  RFTURN 

KEY  PROCEcS ING  TO  KFY  LOOP 

(  LOCAL 

-  VAIN 

PROGRAM 'E 

Rc-AECH 

) 

<eys< 101 ) -storage  of  gub  key  columns 

(Global  -  main  program «s  common  /  basis  /  ) 

KEYFND  -  POeITICN  OF  KEY  FOUND 

(  LOCAL  -  MAIN  PROGRAM'*:  KRYFND  ) 

KOL  -  COLUMN  TO  bp  LOCATED  ON  EITHER  FILE*  OR  PACKET  NUMBER  OE  DESIRED  KrY 
{  LOCAL  -  MAIN  PROGRAM  *  S  m  ) 

KOL 1  -  LAST  COLUMN  RPAO,  ON  FILE  I  A 1 

<  LOCAL  -  MAIN  PROGRAM • S  IO  ) 


G-33 


<0L° 


-  L4?T  COLUMN  Ofso  ON  CILP  I  AO 

<  LOCAL  “  MAIN  PROGRAM IG  J  o  ) 
xopr,  -  origin  IN  Aj  to  which  <FV  column  I  «■  RFAO 

(  LOCAL  “  MAIM  PROGRAM  i  G  IMVFRT  ) 

<0Ro  -  ORIGIN  OF  icry  column  FOP  c>4r<^T  JDxT 

(  LOCAL  -  MAIN  PROGRAM  »G  no*  ) 

<ORG  -  ORIGIN  OF  F=-V  COLUMN  IN  AJ 

I  LOCAL  -  MAIN  PROGRAM K  ru^CX  ) 

<  LOCAL  ~  MAIN  PROGRAM ooi  UMN  } 

L  -  NUMPgr  oF  Gua  OOv? 

(C-lOoal  -  MAIN  PROGRAM  ic  '■""MON  /  T  /  ) 

L A c r  -  LA«T  vr.  aR  Op  o?<'nLrM 

(  GlOP  Al  -  RPOORT  GFmpoatoric  com»»oni  /  OARAMc  /  ) 

LrK’=  -  LENGTH  OF  pe-Rioo  (|NOcR  CONG  IRPRAT  I  ON 

"(GLOOAL  -  MATRIX  Gr*>/PRA  TOR  IC  COMMON  /  yFCGTO  /  > 

(GLORAl  -  PFDOPT  C,P  NlPR  A  T  OP  •  c  COM  mom  /  V^CGTG  /  ) 

L  I  ppR  -  T^M",  CTORAGF  FOP  RPMAINING  I  ICPPIJL  Llp^  OF  A  VCHICLr 
(  LOCAL  -  MATRIX  GFNPRATOR*  G  GFNLCP  ) 

LGJMAX  -  MAXIMUM  LENGTH  WHICH  THr  BRANCHING  L!GT  HAG  ACHIFVPO 
(Global  -  main  program «g  common  /  cvg  /  > 

L  GTFRp ( 25 )  -  GIVFG  L.0CATJONG  op  gtoRAGG  ARGAG  ON  THF  BRANCHING  LI  GT  WHICH 

.'Or  VACANT 

<  LOCAL  -  VAIN  PROGRAM •=  onCAV?  ) 

l.y  -  lagt  yrAD  of  a  roo^l^m 

(  LOCAL  -  MATRIX  G^MGRAToric  5cMLro  ) 

LVR(IO)  _  lagt  yo  AO  OP  G  ACH  PGQJOO 

(GlORAl  -  RGOOPT  C-GNGRATORte  COMMON  /  PAG  fop  /  ) 

V  -  NUMOGD  otr  aot  I  Vc  INTgrnjal  ROW'G 

(GLORAL  -  MAIN  PROGRAM  I G  o-V'ON  /  I  /  ) 

x  -  nuvcsFR  or  POWG  IN  MATRIX 

(GLORAL  -  MAIN  PROGRAM *G  COMMON  /  CVO  /  I 
"  -  VICTOR  oIM^NGlON 

(  LOCAL  -  MAIN  PROGRAM  «c  n<~T  > 

MAPRNO(ICO)  -  ROUNO  COLUMN  INOIC^g 

(  LOCAL  -  MAIN  PROGRAM IG  M A ROUT  > 
maooAG{|oo)  _  Djc|r  OOL' 'MN  INOIC^g 

<  LOCAL  “  MAIN  PROGRAM  I  Cl  MAnOlJT  ) 
vAPxFy(l°oo1  _  <ry  column  In'ICgc 

<  LOCAL  -  MAIN  PROGRA/tG  maPOUT  ) 

M ARnLL ( 1°)  -  NULL  COLUMN  INOICgc 

(  LOCAL  -  MAIN  PROGRAM IG  MAPOUT  ) 

MAXL  -  TFMO.  gxCRAGF  cr)R  v/GHICLf"  LJGF 

(  LOCAL  -  MATRIX  GGMcrRATOQtG  GGnlop  ) 

VAXTRy  -  maximum  NUJMRGR  rr  IN-COP^  ITGPA’MONG 

(GLOpAL  -  MAIN  PROGRAM  »G  oov-'ON  /  L  I  MG  /  )  " 

MC  -  LAGT  LOGICAL  COLUMN 

(0(_oe>AL  “  MAIN  PROGRAM ic  o^nwON  /  I  /  ) 

VCOL  ~  NlJMPrP  OG  C^LUM'JG  iv  MATRIX 

(  L°CAL  ~  matrix  Ggn(tqator,c  Ggnjl'-o  ) 

MV  —  NJ'.JMRCR  OG  g l G Mr nj t c  [u  o  A  c  I  G  I\i\/cocr 

(  LOCAL  -  MAIN  PROGRAMIC  maPOUT  ) 

(  LOCAL  -  MAIN  PROGRAM  *  G  <mc[N  > 
msjo  -  thg  ngGATIvg  0^  NCG 

(  LOCAL  -  MAIN  PROGRAM • G  PPf AV2  ) 
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-  NUMoER  OF  IN-COPE  ITERATIONS 

<  LOCAL  ~  MAIN  PROGRAM 'S  STATUS  ) 

MNX  “  THE  NEGATIVE  OF  N 

(  LOCAL  -  MAIN  PROGRAM • S  BBCAV2  ) 

MP1  -  V  PLUG  I 

(  LOCAL  -  MAIN  PROGRAM'S  ma»OUT  ) 

MD|<  -  ROW  Op  COLUMN  WHICH  WAS  KEY 

(  LOCAL  -  MAIN  PROGRAM'S  krc-y^H  ) 

MPLUS  -  NUMoEP  OF  ROWG  In  THE  MATRIX  INCLUDING  THc  COcT  ROW  (M+l) 

(Global  -  main  program's  common  /  cvb  /  i 

MPL  -  M  PLUC  L 

(GLOBAL  ~  MAIN  PROGRAM 'S  COMMON  /  \  /  ) 

MPOWS  -  USER'S  NUMBER  OF  ROWS 

(  LOCAL  -  MAIN  PROGRAM'S  lp  > 

N  -  NUMBER  OF  COLUMNS  IN  MATRIX 

(Global  -  main  program  is  /-ommon  /  cvo  /  ) 

N  -  NUMBER  flF  COLUMNS  CURRENTLY  FAV^O 

(  LOCAL  -  MAIN  PROGRAM'S  INSERT  ) 


NAAM  -  NOT  ,  |SFO 

(  LOCAL  -  MAIN  PROGRAM'S  jo  > 

N AMEN  (10)  _  OOINTERS  FOR  NUMBERING  RESOURCES 

(Global  -  matrix  generator »c  common  /  vfcstg  /  > 

N AMEN (10)  -  NOT  USFO 

(GLOBAL  -  PFPOPT  GENERATOR'S  COMMON  /  Ver STG  /  ) 
NAMES ( 5 )  -  -OLUMN  INDICES  PROM  MAR  CARD 

(  LOCAL  ~  MAIN  PROGRAM'S  MA° I N  ) 

NAMES  (10)  _  TEMPORARY  POINTERS 

(  LOCAL  -  MATRIX  GENERATOR'S  GENLCD  > 

NAME ( 600 )  -  STATE  OF  EACH  VARIABLE  OR  COLUMN 

(global  -  main  program »c  c^on  /  namec  /  ) 

NAVE  -  COLUMN  name (  OR  POSITION  IN  COPE  to  WHICH  COLUMN  is  p^AO 
(  LOCAL  -  “AIN  PROGRAM'S  IO  ) 

NB  -  NUMREp  OF  BASIC  VARIABLES  IN  A  PACKET 

(  LOCAL  -  MAIN  PROGRAM'S  FC4SCH  ) 

NRCH  -  NUMRctR  OF  COLUMNS  IN  BATCH 

(  LOCAL  -  MAIN  PROGRAM *G  CHFCK  ) 


NBDC  -  NU^SeR  OF  BOUNDS 

(GLOBAL  ~  MAIN  PROGRAM'S  COMMON _/  BOUNDS  /  ) 
NRVDKT  -  NUMBER  OF  BACIS  VARIABLE  IN  SELECTED  GlJB  Row” 

(  LOCAL  ~  MAIN  PROGRAM'S  OPIMAL  ) 

NC  -  NUMBER  OF  BASIS  CARDS  TO  BF  READ  FPOM  INPUT 
(  LOCAL  -  MAIN  PROGRAM • c  readIN  ) 

NCE  -  NUMBER  OF  NON-LINEAR  VAPIAnLpF 

(Global  -  main  program's  mw mon  /  cy  /  > 

NCE I  -  NCE 

(  LOCAL  -  MAIN  PROGRAM'S  RBCAV2  ) 

NCE4  -  NORA  +  B  *  N'CF 

(  LOCAL  -  MAIN  PROGRAM'S  bbCAV2  ) 

NCHGS  -  USER'S  number  OE  BOUND  COLUMNS 

(  LOCAL  -  MAIN  PROGRAM'S  LD  > 

NCOLS  -  NUMr.FR  OF  COLUMNS  READ  FROM  DISC  E  ILF  I  A 1 
(  LOCAL  “  MAIN  PROGRAM 'c  STATUS  ) 


NCOLS  - 
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NICOLQ  -  UGFo«f  N'JMOFR  of  columns 

(  LOCAL  -  MAIN  RPOGPAM»S  L3  >  _  _ _ 

MCOQF  -  NUMO^Q  OF  COLUMNS  in  rORf 

(  LOCAL  “  MA I N  DBOr,n/lM  1 5  COLUMN  ) 

NCPMAX  -  M  Ay  I  mijm  NUMPFP  OF  COLUMNS  vh  |  CH  t  i  i  |N  lW*: 

(GLOBAL  -  MAIN  PPOAOAMis  r^WON  /  LHj  /  > 

Nn"CLM  -  ma v  I  mi j**  PFjF^TlON  nije-  TO  ^cTFNrDfl ^ y 

<  LOCAL  -  MAIN  PROfiOAMts  POI^AL  > 

N0“G  -  MuMRrP  0e  O^GFN^RACY  R1- JFCt  I CNF 

{  LOCAL  -  MAIN  PROGRAM »S  PRIMAL  > 

NOJS  -  NUMPrrP  OF  N^GATlV*7  CJ'S 

(GLOBAL  “  VAIN  PROGRAM «S  COMMON  /  SI  Alt  /  ) 

NO  JOT  -  NUMocR  OF  N^GATlV*  PJ«?  FROM  C  I  Sfcr  RF  AR 

(  local  -  main  PROGRAM • s  Column  ) 

\'OY  (10)  -  I  nD  I  f  NON-LI  VAR  V^pMnLrc 

(  l^CAL  “  MAIN  PpOOQAMIS  MXMPN  J 
N.e-v.  |  -  Nt  IvarR  OF  crj_pMe*K«T«  IN  AN  APRA^  M  f  \jt  is  Oi\jF 

(  LOCAL  “  MAIN  PROGRAM  •  S  OC'TA^O  ) 

NF-.'XZ  -  FLACS  HfHeM  NCV'  Qcr«T  SOLUTION  pOlJNH  AND  sHOuLO  Ph  OuinUI 
(GLOBAL  -  VAIN  PROGRAM »S  common  ✓  Cv7  /  ) 

MruROW  -  R0‘*»  r0P  COLUMN  CHANGING  cQCM  <ev  10  Hflsic 
(  LPCAL  “  MAIN  OPPOPAM • s  nci vaL  ) 

^p- j  _  SIGnIfIc’«;  fc'ASI'^LF  SOLUTION  wHFN  sr  |  tOw«L  iU  1 

(GLOpAL  ”  MAIN  DROGPAM.s  Common  /  Lv '  '  > 

sjc-ncH  -  NUMa=-P  OF  COLUMNS  PFTA  InED  HATCH 

(  LOCAL  “  VAIN  PROGRAM »c  rM^K  ) 

vrocr  M jMr»FD  ns  O fiDc  (c-mptv  LOCATION  DCri,.|CrM  IV  e’lLLM'  r  1^)  IN 

rHr  hL I  ST 

(  L0OAL  ~  VAIN  PPOGPAVtc  etaCAv?  > 

\iery  -  THr  MfSATly/F  OF  NCr 

(  LPCAL  “  VAIN  PROGRAM *c  V|V  HONJ  ) 

Nj  I  K'HD  -  NIJMqFC?  OF  I\lHSt?lT"  O^PJOHC 

(  LOCAL  -  matrix  OI-MC-PATOO*  s  (CMLCd  ) 

Nl.v  -  NUMHFr,  I NHFQ  i  TFO  VEHICLE  Tyrcrr. 

(  LOCAL  -  MATRIX  GFNr-RAT~D»s  glnlco  ) 

MjOt.lT  -  MAVr*  COpF  OF  COLUMN  TO  Qt_  P“JrCTP" 

(  LOCAL  -  VAIN  dp0C-PAV»s  *-  i  A  i  ut>  > 

NL  MO)  -  Trvo,  ctORAC-f  IJSFD  IN  foomA  i  i  IN^  Ou  i  dui 

(  L^C  A|_  -  MATRIX  A  ?  rs^>  »  s  GtNLf*°  ) 

NVIN  -  I  Nr;Fy  ^  F  TMtr  l^VS*1*  FOUND  O  N  IMF  oL  i  v, ,  ,  OR  N-l  i  UhMfc  NU I  Vt>  UN  A-nr :  R- 
I-  IS  Ur-F0 

(  LOFAL  ”  MAIN  PR^-DftMic  r>af“  rt  V7  ) 

NN  (10)  TFMO,  rxoRAGF  (|=;R^  jN  FORMATTING  '"»UT»UT 

(  LOCAL  -  matrix  GFnfRA  t^R  i  c  GrN’Lro  ) 

NO^Fl  -  Mj-'nsr?  ^F  NOOFS  ON  L  I  c  T 

(GLOBAL  -  main  PROGRAM.  s  r  ommqn  /  f_  v  H  /  ) 

NOL  “  INOfx  FHp  tTOPAC-f-  ON  nL  I  CT 

(  LOCAL  “  MAIN  PROGRAM  » 0  f°C  AVO  ) 

MOD  —  rsjODc  MUMnFR 

(GLOPAL  -  MAIN  PROGRAM  I  C  GAMMON  /  **'/  t  /  ) 

MOPc  —  Mn^fp  col'/fh 

(GLPPAL  -  VAIN  PROGRAM  I  C  "'■'Vf'ON  /  /“V"f  /  ) 
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-  NUMPeR  OF  ROWS  IN  THE  MATRIX  INCLUOInG  THE  OBJFCTIVF  FUNCTION 
(  LOCAL  -  MAIN  PROGRAM • F  cmriv?  ) 

<  LOCAL  ~  MAIN  PROGRAM  IS  PRECFT  ) 

MOT''  (  4  )  -  4r  CHAR ACtfr  COMMENT 

(  LOCAL  -  MAIN  PROGRAM**;  CTAIUS  ) 

NP'  -  NUMRFR  or  SUPRFRIODC 

(GLOBAL  -  RFP0P1  GENERA  iOR's  COMMON  t  PwRaMs  /  i 
NPBCH  NuMnER  OF  COLUMNS  TO  nE  SAvrU  f-  ROM  ha  i  LM 

<  LOCAL  -  MAIN  RROGRAM»s  InsFRi  ) 

NPFRYR  <10*  3)  -  FIRST  AND  LAST  YEAR  OF  prpjOO  AND  NU^HtR  Oh  IN 

(GLOBAL  -  MATRIX  GFKjrpi  !  *  s  COMMON  /  ORUSIG  /  ) 

NDH ASF  -  STORES  LP  dHAFE  CORF 

(global  -  main  program*.-,  common  ,  c*  <  r  > 

NR  IF  -  NUMFrP  OF  PRIMAL  INFFAsIBILI  I  I  f- s 

(Global  -  main  program *f  common  /  vi  a  it  /  i 

NPP  NUMRFR  or  PFP I  OOF 

(  LOCAL  -  MATRIX  generator • S  GENLCP  ) 

N°TAS<  <10.  R)  -  ID  NUMBrp  OF  EACH  TACK  In  PERIOD 

(GLOBAL  -  MATRIX  GENFRA  i  OR  *s  COMMON  /  PRuaiij  /  ) 

NPT  -  NUMBER  OF  PFP I OO  TABLES  RE  AO 

(  LOCAL  -  MATRIX  GFNFRATOR*S  GENLCP  1 

<  LOCAL  -  REPORT  GENERA top *s  bhluP  1 
NRD  -  NUMRBp  OF  VEHICLES  HAVING  R  AND  D 

(  LOCAL  ~  vjtdix  GENERA  i  OP  *v  utWHE  ) 

NPFJ  -  NUMRe-Q  OF  DEjerTED  IN-CCRF  CCLuMNH 

(Global  -  main  program «s  common  /  ,,iit  /  ) 

NPOy  -  NUMRrP  (<c  oc,,-  in  MATRIX 

(  LOCAL  -  MATRIX  GtN^RA i OR  *  v  ukNLlP  J 
MV  -  NUMRFR  OF  RbcouRCF  types 

(Global  -  report  genera i or *s  common  /  p«w«vb  ,  , 

NFC an  -  NUMoER  of  DISC  R^ads 

(Global  -  vain  program *s  common  /  li^s  /  > 

NT  -  N'JMRFR  Oc  TACKS 

(  LOCAL  ~  MATRIX  GENFRATOR*S  GrNLrP  ) 


NT  -  TOtAL  NUMRFR  OF  c-0H)MNC  (  vc  +.  I  vR|  JTN  ) 

(Global  -  main  pocgram*s  common  /■!/■> 

NT  -  NUMRFR  OF  TACKS  (NOT  ||ET) 

<  LOCAL  -  OFPORT  GE‘ JTRATOR  I  c  cctijo  ) 

NTR  -  NUMRFo  c,p  TAck  tablet.  RE  AO 

(  LOCAL  -  MATRIX  OENC  R  A  TOP  * e  UhNLCP  ) 

NTR Y  -  NUMBrR  OE  Jn-OORE  ITERATIONS 

(Global  -  main  program  common  ,  lim_,  ,  > 

NT SK  (9)  -  NUMBER  OF  ALTERNAT I V^S  IN  l  Ask 

(Global  -  matrix  gfnerator*c  common  /  tsksig 

NULL  -  'NULL' 


(  LOCAL 

NULL  ~  COLUMN  FT  AT' 

(  LOCAL 

NV  -  NUMRFR  of  VFHICLB 
(  LOCAL 

NVCHU  (1C)  -  INOICATFC 

(  LOCAL 


-  main  PROGRAM *S  MOP  in  ) 

-  MAIN  PROGRAM  *s  TftU'fN  ) 

TYPE  S 

-  MATRIX  GFNBRO  TOO • F  GENLCP  ) 
If  vcH I CLc  UFFo  IN  PERIOD 

-  MATRIX  G^NFP a  T OP  *  F  GENL  0°  ) 


) 


Pt  W I ou 
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-  MUM^o  OF  V^HITL^  TAFL^f  RrAO 

(  LOCAL  -  MATRIX  oc-KirpATOO  •  e  Gfnl°p  > 

(  LOCAL  -  RFDOPT  PffWcP4TnR'S  St  n®  ) 

NW  A  J  -  FTORaG^  DIM^NcION  OF  THE*  APR  A v  AJ 

(  LOCAL  -  WA!\  PROGRAM'^  L°  ) 

N'VFy  -  JNOFy  of  franOHING  VARIAFLF 

(GLOFAL  -  MAIN  PROGRAM'*'  pomvon  /  u«  /  ) 

NjynL(2S)  -  jnOFX  OF  BRANCHING  vARIA^PLF  frr  GALH  MO|)t 

(GLOBAL  -  MAIN  npnijCtt'*i,  i.'WVun  ,  >_»-y  ,  > 

NYF  -  TFMPOoAPy  CTORAGF  for  N^X^  FPANRHING  v «W i «HLr 
(  LOCAL  -  MAIN  POOC-PAM'x  n  ncsvif  ) 

MVO  -  TFMP.  c-roRAGR  FOP  I  ACT  VFAP  OP*  PROtOO 

<  LOCAL  -  MATRIX  OF  NRR  A  |  OP'  S  OTNLlP  ) 

o ANOM ( ?0 )  -  OPERATING  ROOT  FOP  FARR  tP AP 

(GLOFAL  “  pPPOR  ,  Gtr.Nt- PA  ,  OR  .  COMMON  ,  , 

ON-~  -  *01' 

<  LOCAL  -  PFPORT  GFNFPATOP'^  CINt-O  ) 

ON'R  -  1.0 

(  LOCAL  -  MATRIX  GFNFRATOD'F  GpNLrD  ) 

ONF**  -  -1.0 

(  LOCAL  -  MATRIX  CENTRA i RR » >  o^NL^P  > 
pa~ip(1O0>  -  rrxPORADV  cTOOAGf  OR  RAOXFO  0^1.  uMN 
(  LORAL  -  "AIN  PROGRAM'0  JO  ) 

PFPflO)  -  PoINT-PF  FOP  TWO  OIGIT.  ALcH  ANL'MFR  I  t  OOOP*  FOP  PPOJAAC 
(GLOFAL  -  RRRORt  '.PKiroATCSic  COMMON  /  "Svirt  /  ) 

Pro  1 00  -  *Ocrpt00' 

<  LOCAL  -  PFPORT  GFNRRAIPOts  CINt-o  ) 

(  LOCAL  -  PFPORT  G^FPftlAnis  PINTS  ) 


PF]  ANO  PH?  -  TPMDCpflSv  CTOPAO 

.F  Cc  VALIIc'  from 

C-~r 

i 

LOCAL  -  MAIN 

pppp,n aw  «  c 

»«CAV? 

) 

^HIT  - 

COFT  0°  A 

NON-L  IN,erAP  GO 

LUTPN 

( 

GLOFAL  -  MAIN 

DQTTS*'  «  c 

r  «M»»ON 

/ 

O  I  v'-Y 

-  OJ  V/ALLF 

°0P  CURRENT  xFv  jrxt 

( 

local  -  ma  in 

v  •  ^ 

tjVN< 

) 

P  I  K^Y 

OJ  rOC  r 

(jDDCTMT  <ry  at 

<0  or. 

( 

LOCAL  -  VAIN 

rscp^OP  *  v  •  c 

) 

p  I  v'TOL 

-  PJ\/OT  TOL.C-DAMCP 

( 

GLOFAL  -  VAIN 

POof.p/\o  t  e. 

r*  (ON  A  4  O 

/ 

□  IV  - 

p  I  VOT  1  /crn 

( 

LOCAL  -  MAIN 

PP^fQ^'  t  C 

pivot  , 

D^T  1  - 

TFYDrPAPV 

count  cf  guo 

R  0  V  PACXFX  p  OLUMN 

r. 

t 

^R-AL  “  VAIN 

°PC0P AV  •  s 

S^luP  ) 

PYT  - 

ACTUAL  Gua 

ROW  o OLUMN  FFING  oooofccfo 

( 

LOCAL  “  MAIN! 

r>p^-nAM  «  r* 

cc-rt jp  ; 

0«^T  — 

FTOPAr.F  OF 

COLUMN  PflCXrT 

( 

LOCAL  -  main 

DQ^fC a V  •  C. 

VflOjN  ) 

Pk'  T  — 

0-U'F  n^^YRT 

NUMFt-R  OF  PQL 

i  jvkj  nr  I  vr, 

n?orcc cr^ 

( 

LOCAL  -  VAIN 

PP^CPAV • r 

T  ^VrC?T 

> 

P/T  — 

P  A  OXF  t  0° 

NF'.i'  pOLUMN.  JN 

|T 

( 

L^CAL  -  MAIN 

1 S 

'■UMV  ) 

Pk"r  - 

Gun  p  a  C  <c T 

pf  OF p  I  RFP)  <c* 

Y 

( 

LOCAL  -  MA IN 

PPOCPA  V  i  c* 

i/ryPNJP 

> 

PYTO  - 

Gl)°  n  ACXR  T  NUMRG^  0c  COLUMN  IN  AJ(xOPG) 

PtCT^  - 

PACXt-T  n° 

ryq>prrrsiT  K*~Y 

{ 

LOCAL  ~  VA  IN 

npor,PA*'  •  ^ 

PUV-  (  W  , 

( 

LOCAL  -  VAIN 

PPOP^^M  |  «^ 

I VVK? 1 

) 
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PMIN  -  value*  of  lowfft  BOUNO  ON  Pl.IFT 

(  LOCAL  -  MAIN  PROGRAMME  pc>CAV?  ) 

PeotOL  -  PR|MAL  ERROR ‘TOLERANCE 

(Global  -  vain  program  •>-,  -^mmon  ✓  iCl.->  /  ) 

UNVJFtrr, 

-  VAIN  PROGRAM  • c  '•pM'.ON  /  MOVEc  /  ) 

Funof  FPENT  ry'RlNG  E  ACH  PhRIRU 

-  prooo I  AE^rDJiADi,  COVV^M  ,  ^  , 

FuNOF  av4!L*cLr  ^uRlNG  FACH  PER I  On 

-  REPOP  I  GE  Nrf  A  i  OR  •  a  uOMMON  /  Ou  i  j  , 
ASSOCIATED  WITH  F ACH  NODE  ON  LlSI 


PRMLFR  - 
PROC ( 20) 
RROT ( 20) 
RGIGL(?5) 


PRfMAL  ERROR* 
(Global 

-  oROCURFMC-njt 

(GL0°Al 

-  PROCUREMENT 

(Global 
-  lower  rouno 


(Global  -  main  progpam*s  common  /  cvr 
-  multiplicative  factor  foq  All  valued 


/  ) 

IN  AvhOLIA|EO 


COMMON  ,  PRtJ_,.P  , 

PuRCHfl-jl-  |J  IN  TOCM 
COMMON  /  OlJTc‘  /  ) 

YRCOSI  ) 


MA ih ILL) 

MO  I H  BALLING 
YRCOSI  > 


REaOpPCt 


COMMON 
CVIRR^NT  R  I  FHT  HANO  FI  OF 
main  PROGRAM i c  COMMON  /  RHs 


-  MATRIX  GFNFRATnQ » C  MATFILL) 


/  PAPAMS  /  ) 


/  ) 


PTAFK  (to*  O) 

FACH  PERIOD 

(global  -  matrix  gfnfra  *  or  • 

P;fRCH(  10«?0)  -  NIJMPFR  OF  fa<-h  Tyor  RFSOuRCE 

(global  -  rfport  fc^RUTOpic 

R  -  RATE  OF  InCRFARF  in  OPERATING  COFT 

(  LOCAL  -  MATRIX  GENERATOR**; 

R  -  *RHS* 

(  LOCAL  -  MATRIX  Gfnjc*rA  |  or  *  s 
R 1  -  PORTION  of  OPERATING  COST  REFUNDED  for 
(  LOCAL  -  MATRIX  genfratop  *  *; 

RDTOT  -  TOTAL  R  AND  0  EXPENDITURE? 

(GLOBAL  -  RFPORT  0-fmc-qAToRif 
RHS  (100)  -  cTOREF  uffr*  f. 

(Global  - 

RNAME(  I?0)  -  ROW  NAMFC. 

(  LOCAL 

ROyc  -  iROyic* 

(  LOCAL  -  MAIN  PPOGPAM  t  e  MAPIN  ) 

R°  (12)  -  STORAGE  FOR  RF "  _  PARAMETER*;,  FjrjFT  f0ur  lOe*  AT  I ONF  apf 

FROM  REAL  PaRAmFtFP  CARO,  REST  ARE  TEMPORARY  mORAGe' 

(Global  -  main  program i 'dymon  ,  cvi  r  > 

RTEMP  -  TEMP.  STORAGF  FOR  ROW  NAMFF 

(  LOCAL  -  MATRIX  GENERATOR*  e  MATFILL) 

RVAL(IOO)  -  VECTOR  OF  VALUES  IN 
(  LOCAL  -  MATRIX 

F  -  •  S  • 

(  LOCAL  -  REPORT  GrNrPATnRiE  IN=0LN  ) 
f  ALC  ( 20  )  -  cALVAGF  OR  TRUNCATION  VALUE  for  FA^H  vctAr 

(Global  -  REPORT  gfnfratopie  common  /  oui*- 
f ALV (10  *  20 )  -  NUMBER  OF  EACH  Typo  crAouPfE  RISPOsfd  Of"  Al 

(Global  -  report  genfratoric  common  /  nuts 

S AVF ( 20 )  -  CAVINGS  FROM  RESOURCE  STQRAGf  FOR  EACH  YEAR 

(Global  -  report  generator *g  common  /  outs 

SEC f  -  ACTUAL  CPU  CLOCK  TIME 

(  LOCAL  -  MAIN  PROGRAM *s  T I mEC  ) 

STORES  INFORMATION  WHICH  DEFINES  THE  CURRENT 
(Global  -  main  program *c  tpmmon  k  cvb  /  > 
CURRENT  ROW 
(  LOCAL  -  MAIN  PROGRAM  *  F  ROW  ) 

FT0R( 10*20)  -  NUMBER  OF  fAch  TYPE  BECOuqcc  FTORfr  In  E ACH  YEAR 

(Global  -  report  generator *f  common  /  ouis  /  ) 


I  A>-K  I-  OP 


I 

*  fcttW 


■OR  INPUT 


EACH  ROW  for  A  SpFC IF  I c  COLUMN 
GEnfRATOP*S  MAiEILL) 


X  ) 
FNO 
/  l 

/  ) 


OE  h  ACH  YM  AP 


SIGMA( 100. A) 


CTFP  -  fjfr  to 


NODE 
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-  VALUF  OE  VAPiaV  oeerRe  Fc  A<;  I  <">  !L  I  TV  40JUeTWcMT 
(  LOCAL  ~  MAIN  DROGRAM'C  cr/^crH  ) 
cum  -  TFvPOoiRV  GTOOAGE 

(  LOCAL  -  MAIN  PROGRAM  •  S  ^YCH  ) 
cum  -  DOU°Lc  PREGlGION  ACCUMULATOR 

I  LOCAL  ~  MAIN  PROGRAM #G  PC  I  ) 
ci  r*  -  TOTAL  C  OCT  FOR  A  “FRIOO 

(  LOCAL  ~  RFPORT  GLN'FRA  I  OR  •  S  L  I  Ni- 0  ) 

CUMIC  -  CUM  OF  lMF"flC n II IT I^C 

(  LOCAL  ~  MAIN  PRciGRAVis  «S«:(;h  I 
c  ivt  _  TOTAL  GO  c  t  FOR  ALL  PFRIOO^ 

(  LOCAL  -  RFPORT  GENERATOR i e  'Imfo  ) 

G v  -  GT  ART  VCSP  OC  PROBLEM, 

(  LOCAL  -  MATRIX  GFA'ER  A  I  OR  *  s  goNLi.p  ) 

T(100.t0>  -  GTOR  AGc  cOP  COLUMN  G  OF  MA-Rly  AssOC I  A i EO  'V  I  i  H  NON-LINEAR 

VAR l APL^G 

(Global  ~  MAIN  PROGRAM  » c  ppm  "ON  /  ryr>  /  , 

TCOCT  -  TFMo  CTORAGF  FOR  TOTAL  PROCUREMENT 

(  LOCAL  -  REOOR  !  rF\rps  icotv,  L  1  Ni- O  > 
texc  -  LO'*  At  I  OF1  IJFEO  H  1 L  e  CWAPOING  LONTfcN  |  Of  I  >vU  LOL«i  I'JN.i  IN  «N 
<  LOCAL  -  MAIN  PROGRAM  •  s  GE|AsO  » 
tempi  -  TEMdOPAPv  ctORAG"  LOCATION'c  FOR  AlPHANUMFRIe  OUT°Ut 

(  LOCAL  -  report  Generator * G  P I NF O  I 

TtrvD?  -  TEMPORARY  CTORAGF  LOCATION^  FOR  A  LpH  ANU**rr?  I  r  OUTPUT 
f  LOC  AL  “  REPOR i  Gh NF RA  i pp I ^  0 l NT  O  > 

TevD(4)  -  TirMP  GTOQAGe  Fpp  -OL'JMN  NAMES 

(  LOCAL  -  report  generator  *G  St.  1  UP  ) 

TMFTA  -  GTFn  CHCGEN  By  ROW*  AOJUOYEp  IN  PRIMAL 

(Global  -  main  PROGRAM *C  common  /  movFs  /  ) 

tmeta  -  oro  ffacirle  gtep 

(  LOCAL  -  main  PROGRAM'S  REW  ) 

TITLE (A)  -  ALPPANUMFR I C  tItle  OF  PROBLEM 

(  LOCAL  -  MAIN  POOGO am ' c  ) 

(Global  -  pepopt  generator » c  common  /  paravs  ✓  j 
T  M  A  y  -  maximum  t[vc-  per  ORE  "AROuT 

(G-LRRAl  -  MAIN  PROGRAM*!-  common  /  RAPAMs  /  ) 

TMO  -  TIME  cc-t  yAG  G  ALLE  O 

(Global  -  main  program «S  ermmon  /  u*  /  ) 

TMP(IO)  -  TEMDOPAPV  CTORAGF 

(Global  —  main  program  *f  p^mmon  /  cvi  /  i 

TOT  -  NUMBER  RF  C(jaDCQ  I  OOc  OLl  ;  C  1 

(Global  -  RrDOPT  gfneraior»s  lommpn  r  ruRums  ✓  > 

total  -  'TOTAL' 

(  LOCAL  -  REPORT  GENFRATOR • G  OINFO  > 

(  LOCAL  -  REPORT  OFNERATORiC  PjnFO  ) 

TORPC  -  CORREpt I  ON  FACTOR  FPR  PROCUREMENT 

(  LOCAL  -  DEPORT  FICRIMDIC  CINE^  ) 

T c  I  p  -  TCMOPPARV  eToRAGr  A  Ccqp  I  A  I  rp  .<1  I  I  M  rK'0 

(GLR°AL  ~  MAIN  PROGRAM  *  s  ppmmon  /  f\/c  /  j 

TP  T  -,  (  1  OO  )  -  TEMPORARY  CTPOflP,P 

(  LOCAL  -  MAIN  PROGRAM  «C  or>p  fly5  ) 

TYRE  I  _  FIOcT  wo RO  ON  mao  CAPO 

(  LOCAL  -  MAIN  PROGRAM  *  c  MARIN  ) 


aS’Ru 


G— 


TYPC2 


-  SECOND  WORD  ON  MAP  CARD 

<  LOCAL  -  MAIN  PROGRAM • S  MA°IN  )  _  _  _ 

U  <  7  »  2SS,  R)  -  ARRAY  OF  TASK  AL I E  RN  A (  1 vc S 

(Global  -  matrix  genera  t or •  *1  /  ( $ o  ✓  > 

u°  (1C)  -  CALCULATFO  UPP^R  BOUNDS  ON  R^couRCfcS 

(  LOCAL  -  VArPlX  GtNhPAiPRt',  ur.NU.°  > 

UQK  _  [/ppccj  qniNO  ON  BRANCHING  VARIABLE 

(  LOCAL  -  MAIN  PROGRAM  «  c,  noc  AV2  ) 

jqxp  -  pipFcQCMfC  optW'FN  UDPFP  °OUND  AND  VALUt  HOW  HHANCHlNl;  VAWItt‘-*LH 
(  LOCAL  ~  MAIN  PROGRAM »s  nnCAviT  ) 
l  JLO  (I'M  -  Se-T  OF  UPP^P  BOUNDS  ON  NON— LINEAR  VAPIAF|_c-g 

(GLOBAL  -  MAIN  PROGRAM • S  COMMON  /  CV?  /  ) 

ULT (10)  -  TEMPORARY  STORAGE  FOR  ULO 

(  LOCAL  -  MAIN  PROGRAM *S  POCAV2  ) 

UMAX  -  TEMP,  STORAGE  FOR  GREATEST  QUANTITY  OF  A  SPLCU-IC  VEHICLfc  WHICH  MiLHI 
BE  USFD  IN  A  TASK 

(  LOCAL  ~  MATRIX  GENERATOR* S  GHNLCP  ) 

US  -  TEMPORARY  STORAGE  FOP  USP 

(  LOCAL  -  MAIN  prO-GDAM#f  pdcaV2  ) 


UFM  =  U7/<  1-E) 

( glo°al 


main  PROGRAM • c  OOMMON  /  rv>  /  ) 


USP  =  U7 / 1 1 +F ) 

(GLORAl  -  MAIN  PROGRAM  «  c.  r^vMON  /  CVO  /  ) 

U7  -  COST  Op  PEST  NON-LlNFAR  cOLUtICN 

(Global  -  main  program «s  common  /  cv"5  /  ) 

VAL  -  COLUMN)  VALUE  TFMPORARY  STOP AGc 

(  LOCAL  -  REPORT  GENERATOR i S  INSOLN  ) 

VA'_  -  TEMP.  STORAGE  FOR  VALUE  OE  SPEC  IF  to  ROW  AND  COLUMN 
(  LOCAL  -  MATRIX  GENERATOR. F  MAtFILL) 

VCOST  (  1 0 » B )  -  THE  FIVE  COSTS  ASSOCIATED  ••/ ITH  EACH  RESOURCE  AWL  blOKhl.)  IN 

THIS  ARRAY  _  IN  OPnFP ,  THEY  ARF  ^ ALVAGF  ANR  TRUNCATION,  OWHWA II NU »  w  AND  ’_> » 
PFTrNT  I  ON  R  ATcr  «  AN^  PROCUREMENT, 

(GLOBAL  -  MATRIX  G^NPRATOP. S  COMMON  /  vECsiG  /  ) 

(GLOFAl  -  Pc°OPT  GEmFRATOR.C  COMVOM  /  VCS1G  /  ) 

VLIEE  (10)  _  MAXIMUM  LIEF  OF  PEFOtRrr  (VrHlCLr) 

(Global  -  matrix  gcnc,raiopis  common  /  vtcstu  ✓  > 

(GLOBAL  -  REPORT  GENERATOR . s  COMMON  /  VECSIG  C  ) 

VMIN  -  TEMP.  STORAGE  FOR  MINIMUM  QUANTITY  OF  VEHICLES  WHICH  CAN  ”E  USED  HOP 

TAC< 

<  LOCAL  ~  MATRIX  GENERATOR. S  YlNItPP  ) 

VNAME(IO)  -  STORES  RFSOUOCF  NAMPP 

(Global  -  matrix  generator m  common  /  vecsig  /  ) 

(Global  -  report  g^patapic  common  /  v^cstg  /  ) 


w 


x 


•  w  • 

INPUT 


(  LOCAL  - 
VPCTOR 

(  LOCAL  - 


rpooot  GFn^RATOr.c  INSOLN 
MAIN  PROGRAM «s  nOT  ) 


X  -  *x  • 


(  local  - 


X  -  ELAPSED  CPU  SECONDS 

(  local  - 

XC0N(10)  -  STORES  VALUES 

NON— L  I  NF  AP  VARIATES 

(Global  - 


REPORT  GENERATOR »S  INSOLN  > 

MAIN  PROGRAM »s  FTATUS  ) 

FOUND  IN  X  WHICH  ARH  ASSOCIAltU 

VAIN  PROGRAM .G  common  /  CVA  /  ) 


W I  I H  IMF 


G-Ul 


YK  -  VAL1F  OF  BRANCHING  VARIABLF 

(Global  -  main  program  is  common  /  ^vb  /  > 

YNXbL(OB)  -  VALUC  OF  BRANCHING  VARIABLE  rrD  CACH  NO^F 

(Global  -  vain  drog^awh-  /•''won  /  r;vt->  /  > 

Y  T  (  I  0 )  -  SOLUTION  VALUFG  FOP  MON-LlNcAP  VA'-’IABL1- 

(  LOCAL  -  VAIN  PROGRAM  N^npN  ) 

YY-  FLADBf-O  T ' ',c  ON  PPORLFV 

<  LOCAL  -  VAIN  PROGRAM »s  t  T  V^C  I 
Y<100)  -  V  A|t  )c  G  OP  SOLUTION  COLUVNC 

(Global  -  vain  program#^  ✓  Aa  ✓  > 

Y  (  1  1  O )  -  VA(_UF c  AGSOCIATFO  VlTH  COLUMNS  IN  Ia 

(Global  -  vain  program  is  common  /  /"v/a  /  ' 

Y7(I10)  -  VALUFG  AGSOCIATFR  WITH  COLUMNS  IN  IYZ 

(Global  -  vain  program  is  'ovvon  /  '-\/&  /  ) 

y  _  INPUT  V/ROTO  R 

(  LOCAL  ~  VAIN  PROGRAVis  ^t  ) 

VAVL  (10)  -  VFAR  Pc  sOuRCF  FIRST  AVAIL  ARi_<s 

(Global  -  MAtRIy  S^nFRAtaqi s  Common  /  Altsto  /  ) 

VFARS  <  0 1  )  _  STORFS  INHFRITBR  YEARS 

(  local  -  MATRIX  GFNFPATOR*  G  GFNLCP  ) 

YRINT  (70)  -  SCALP  FACTOR  BQR  ALL  tAGys  In  PfcRIOO 

(  LOCAL  -  MATRIX  generator • c  GBNLCd  ) 

YT(JO)  -  O  I  sFPRPNCSg  orTWrFN  GOLUTION  POINT  ANO  L'>"<rP  BtJUNOS 
(  LOCAL  -  VAIN  PROGRAVis  NXBRN  ) 

7  -  PARAMFTrR  IJGFO  TO  PACK  INO^X  0r  C0hcHUtNi 
(  LOCAL  -  VAIN  PROGPAVIS  JO  ) 

COMB  B  ?:;I  (q77  HR • B70  f  GQ  =  07= • QH 

(Global  -  vain  program  is  common  ^  r^c  /  > 

2G  -  PARAmstFR  ucFO  T0  PACK  COFPc  I r  I  ^N^G 

(  LOCAL  -  MAIN  PROGRAM  is  10  ) 


G-h2 
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